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VORWORT 


Mit "64 für Profis" können wir Ihnen bereits den siebten Titel in 
der beliebten Reihe der DATA BECKER BÜCHER vorlegen. Das 
Erscheinungsdatum dieses Buches fällt zusammen mit einer Zahl, 
auf die wir besonders stolz sind: 


In nur 10 Monaten konnten wir über 100.000 DATA BECKER Bücher 


verkaufen. 


Auch bei "64 für Profis" hat sich unser Autorenteam wieder größte 
Mühe gegeben, Ihnenn fundierte Ratschläge und Anwendungen zu 


geben, die Ihnen helfen, Ihren Commodore 64 optimal einzusetzen. 


Anwendungsprogrammierung in BASIC für Fortgeschrittene ist das 
Thema dieses Buches. Vom Programmentwurf über Menuesteuerung, 
Bildschirmmaskenaufbau, Parametrisierung, Datenzugriff und 
Druckerausgabe bis hin zur Dokumentation wollen wir Ihnen mit 
vielen Beispielen zeigen, wie gute Anwendungsprogrammierung in 
BASIC vor sich geht. 

Besonders stolz sind wir dabei auf die von Klaus Gerits 
entwickelte neue Dateizugriffsmethode QUISAM. 

Neben den auf dem Titel vermerkten Autoren, die Ihnen alle 
bereits von anderen DATA BECKER BUCHERN bekannt sein durften, 
halfen bei der Erstellung dieses Buches die Herren Englisch, 
Froitzheim, Kausmann und Retzlaff. Die Zeichnungen stammen von 


Frau Jordan. Ihnen allen gilt unser besonderer Dank. 

Vorwort zur 2. überarbeiteten und erweiterten Auflage 
Innerhalb von nur drei Monaten war die erste Auflage dieses 
Buches mit 20.000 Exemplaren vergriffen. Wir haben die 
Gelegenheit der Neuauflage genutzt, ein paar interessante Kapitel 
hinzuzufügen. 


Viel Spaß bei der Lektüre dieses Buches wünschen 


Ihre Autoren 


Vorwort 


Inhaltsverzeichnis 


innaltsverzeichnis aw a ὁ s 2 » ὁ ee ὦ -ᾱ 3-8 o» sass a’ 


EINLEITUNG - Programmieren Profis anders ? . . a « a a ο 


1. Kapiteli 


1. 
1.1 
1.2 
1.5 
1.5.1 
1.4 
1.4.1 
1.4.2 
1.4.3 
1.4.4 
1.4.5 


1.4.6 
1.4.7 
1.5 


1.5.1 
1.5.2 
1.5.3 
1.5.4 
1.6 
1.7 
1.8 


Bevor Sie anfangen zu Frogrammieren 

Das sollten Sie sich ersparen . a a . s a » e àù 
Die Frogrammidee . . « . . a « » » «© 8 * c e 2 
Der Frogrammentwurf . a a . » «© a « © » © «© » s 
Dag Flufidiagramm . . . a «© a © « © e © » » e v 
Vorbereitungsarbeiten zur Programmierung . a . 
Die Gestaltung der Bildschirmmaske . a . a ο» e 
Die Festlegung der Dateien . . . e « e e a ο «a 
Rechenformeln . . s a «© «© «© ο» e © «© e e - e 5 
Die Druckausgabe . . . a . » 2 «© «© » » 2 «© e ο 
Die Variablenliste und Tips zum Umgang mit 
Variablen . a . . «© a : © e © » © e © © © : 5 
Die Frogrammdokumentation . . a 2 2 a a a «© a œ 
Grundsätzliche Uberlegungen zum Programmaufbau 
Strukturiertes Programmieren an einem Beispiel- 
Der COMMODORE 64 als Taschenrechner . . a . a e 
Vorbereitungen . ο « e «© « © © a . . een ο. 
Die Frogrammanalvse . . . « a 2 «© «© 2 a © s a œ 
Die Variablenliste . . . . «© «© «© «© Tan 
Der Programmablauf . . « . © © © © © as «© © «© » 
Das Struktogramm . . s » «© a s» © nn 
Flußdiagramm kontra Struktogramm a. a . . «© : œ 
Erstellen des strukturierten BASIC-Listings . . 


11 
11 
15 
20 
20 
54 
34 
37 
41 
43 


45 
47 
49 


51 
52 
52 
54 
55 
64 
84 
85 


2. Kapitel: 


(4 N 


.1.2 
e Ën 


H N MM N MN MN 


U OG A à d MH 
m 


2.3.2.1 
2.3.2.2 
2.3.2.5 
2.3.2.4 


Ein Frogramm besteht aus drei 


Dateneingabe .. . 
Die Bildschirmmaske 
Eingabefelder . . . 
Cursorpositionierung 
Tastaturubernahme . 
Datenverarbeitung . 
Variable . . . .. 
Rechengenauigkeit 
Sortieren . . ο : « 
Datenausgabe . . . 
Ausgabe auf Floppy 
SED ww P E E^ 
REL &. : » e Ke e 
ISAM doubles Le μ e Ge 
QUISAM . . . . . » 
Der Hashcode . .. 
Dateigröße . . . . 
Eintrag löschen . . 
Satz eintragen .. 


Satz suchen . . . . 


Wofür eignet sich QUISAM 
Die Ausgabe auf Drucker 


Drucker gleich Drucker ? 


Tabulator a a a a . 
Dezimalpunkte . . . 


Formatierung . a à 


93 

94 

95 

98 
104 
106 
111 
112 
114 
115 
123 
124 
125 
127 
135 
139 
141 
146 
158 
166 
170 
173 
175 
175 
178 
178 
179 


3. Kapitel 


Ji Tips für die professionelle Programmgestaltung 
In diesem Kapitel zeigen wir Ihnen anhand 
ausgewählter, wichtiger Themenbereiche wie 


Sie Ihre Programme noch bediener - und 


anderungsfreundlicher gestalten können . . . . 187 
Sul Parameterisierung von Programmen . . a . . a . 187 
3.2 Menüsteuerung und Overlaytechnik . . . s a a . 192 
3.3 Mehr Frogrammkomfort durch Funktionstasten . . 196 
3.4 Testen Sie Ihr Programm aus - Anwender sind 

keine Versuchskaninchen ! . a « . . . , . «© » « 199 
5.9 Die Bedienungsanleitung, das Aushängeschild 

eines Programme . . a © «© os © » 2 2 «© o o o e 202 
3.6 TOP-DOWN oder BOTTOM-UP . . . . . 2 2 « è. « « 208 
3.7 Logische Felder - B Entscheidungen pro Byte . „ 211 
3.8 Das Datum - der besondere Datentyp. . . . . . « 214 
3.9 Daten gepackt speichern . . a s . s 2 2 . . a . 217 


4. Kapiteli 


Anwendungsprogramme . s . . =» « « a » 2© » 5. » « 224 

4.1 Einleitung .a x ow We. w e m ο ο δι: RO we ο re d 

4.2 Eine parameterisierte Lagerverwaltung . e . . a 223 

4.3 Ein universeller Reportgenerator . a . a s a « 245 

. 4 Ein einfaches Textverarbeitungsprogramm . . . . 250 
4.5 QUISAM konkret - eine Literaturstellen- 

verwaltung d. s s ces LXV a er ek 

4.6 Eine komfortable Adressenverwaltung . . . . . . 273 


S. Kapitel: 


5.1 Die Verwendung von Frogrammierhilfen am 
Beispiel von MASTER 64 . . . . . «© . . . s . . 280 
5.2 Strukto 64. . . . a s D D 5 . . . . e D . D a . 290 


3.3 Das Strukto 64 Graphikkonzept . . . . . «© © © © 297 


an 


EINLEITUNG - FROGRAMMIEREN PROFIS ANDERS 7 


Ja und Nein. Frofis programmieren vor allem für einen anderen 
Zweck. In der Regel erstellen sie Programme, die nicht von 
ihnen selbst, sondern von anderen Leuten benutzt werden. 
Daraus ergibt sich zwangsläufig eine andere Methodik bei 


Planung und Durchführung der Programmerstellung. 


Denken Sie doch einmal zurück an Ihre eigene Anfänge in der 
Programmierung. Da kam es Ihnen zunächst darauf an, überhaupt 
etwas mit Ihrem COMMODORE 64 zu erreichen. Jede Reaktion des 
Bildschrims, immer, wenn sich etwas tat, erfüllte Sie mit 
Stolz. Mit wachsender Kenntniss neuer Befehle und 
Programmiertricks wuchsen auch Ihre Frogramme. Oft fanden Sie 
sich dann selbst nicht mehr zurecht und die Fehlersuche wurde 
manchmal zur Qual. Stellen Sie sich einmal vor, mit diesem 


Programm hätte jemand anderes arbeiten müssen | 


Ganz anders beim Programmierprofi. Für ihn ist Programmieren 
weder Selbstzweck noch Hobby (was nicht ausschließt, daß es 
ihm trotzdem Spaß macht), sondern die Erledigung eines 
bestimmtem Programmierauftrages. Diesen Programmierauftrag 
gilt es, so gut und schnell wie irgend möglich zu erfüllen. 


Dabei erweisen sich drei Dinge als besonders wichtigı 


* effiziente Programmerstellung 
Zeit kostet Geld. Deshalb muß der Programmierprofi sein 
Ziel, nämlich die Fertigstellung eines lauffahigen 
Programms, möglichst schnell mit vertretbarem Aufwand 
erreichen. Ein neues Programm ist für ihn kein 
Geniestreich, sondern das Ergebnis sorgfältiger Planung und 


Vorbereitung. Dabei macht sich der Programmierprofi etwas 


zunutze, was man in Anlehnung an die Textverarbeitung auch 
als Bausteinverarbeitung bezeichnen könnte. Für ständig 
wiederkehrende Dinge - bei ähnlichen Anwendungen sind oft 
80 % und mehr gleich = schafft er sich Module 
(Maskenaufbau, Dateiverwaltung, Datumgroutinen, 
Rechenformeln etc.), aus denen er schnell das  Grundgerüst 
einer neuen Anwendung zurechtzimmern kann. So kann er das 
Hauptaugenmerk von der Codierung hin zur Organisation 
lenken. Sorgfältige Flanung des Frogramms schützt den Profi 
vor Sackgassen und Umwegen in der Programmierung. Wer sein 
Programm vorher richtig plant, der ist hinterher auf das 
bei Hobbyisten so beliebte RENUMBER nicht mehr angewiesen. 
Nicht so sehr die genialen Frogrammiertricks sind es also, 
die den Programmierprofi auszeichnen (hier stehlen ihm oft 
engagierte Hobbyisten die Schau), sondern die zielgerechte 
Arbeit. 


der Gedanke an den Benutzer 

Wer Frogramme erstellt, die nicht von ihm selbst benutzt 
werden, muß entsprechend sorgfältig vorgehen. Solche 
Programme dürfen nicht unvermutet aussteigen oder aber ohne 
jede Bedienerführung am Bildschirm den Benutzer zum 
ratlosen Dauerleser des (hoffentlich!) vorhandenen 
Handbuches machen. 

Hierzu ein Beispiel: Denken Sie einmal an eine bestimmte 
Strecke, die Sie häufig mit dem Auto fahren. Für Sie selbst 
kein Problem, denn Sie wissen exakt wo's langgeht und 
fahren eine solche Strecke praktisch im Schlaf. Jetzt 
sorgen Sie einmal dafür, daß ein  Ortsunkundiger diese 
Strecke ebenfalls mühelos zurücklegen kann, ohne sich zu 
verfahren, und zum Ziel gelangt. Zwei Hilfsmittel haben Sie 
hier zur Verfügung. Das eine ıst die Beschilderung, die der 
Bedienerführung am Bildschrim entspricht und auf die Sie 


gottseidank mehr Einfluß haben als auf die Beschilderung 


des Straßenverkehrs. Das andere ist eine schriftliche 


Wegbeschreibung, entsprechend der Frogrammbeschreibung bzw. 


des Bedienungshandbuches. Erkennen Sie jetzt den 
Unterschied zwischen eigenen Programmen für den 
Hausgebrauch und solchen Programmen, die für fremde 


Benutzer geschrieben sind ? Wer Programme erstellen will, 
die professionellen Ansprüchen genügen sollen, muß dies so 


tun, daß sich auch "Ortsunkundige'" zurechtfinden. 


* Änderungsfreundlichkeit 
Frogramme werden für gewisse Umweltbedingungen erstellt, 
und die können sich leicht ändern. Sehr wichtig ist 
deshalb, daß sich Programme auch leicht ändern und anpassen 
lassen können. Gravierende Denkfehler bei der 
Programmerstellung, neue, unvorhergesehene Wünsche des 
Programmbenutzers oder aber veränderte Rahmenbedingungen, 
wie z.B. ein neuer Mehrwertsteuersatz, eine neue 
Lohnsteuerformel oder eine neue Firmenbezeichnung sind für 
ein professionell erstelltes Frogramm kein Problem. Wehe 
aber, wenn so ein Fall eintritt, und Sie müssen sich durch 
20 K Spaghetticode durcharbeiten, wo jede Fehlerbeseitigung 
neue Fehler provoziert, und wo Sie sich sehnsüchtig einen 


CURSOR wünschen, der auch als Blindenhund funktioniert. 


Ziel dieses Buches ist nicht, aus Ihnen einen 
Superprogrammierer zu machen, der ein neues VISICALC oder 


einen so großen Wurf wie das bekannte WORDSTAR aus dem Armel 


zaubert. Wir möchten Ihnen lediglich zeigen, wie Sie mit 
weniger Aufwand mehr erreichen und Programme erstellen, an 
denen nicht nur Sie selbst sondern auch andere Leute 


ungetrübte Freude haben können. Ihr Computer, der COMMODORE 
64, bietet dafür hervorragende Voraussetzungen. Mit 64 κ 
Speicher bietet er mehr, als vor ein paar Jahren noch 


fortschritliche Anlagen der Mittleren Datentechnik vorweisen 


konnten. Durch die wichtigen Funktionstasten kommt die 
Tastatur schon der professionellen Bildschirmgeräte nahe. Mit 
theoretischem Ballast wollen wir Sie in diesem Buch möglichst 
wenig langweilen, auch wenn dies manchmal unumgänglich ist. 
Stattdessen wollen wir Ihnen Ratschläge und erprobte Rezepte 


geben, die Sie direkt in die Tat umsetzen können. 
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KAPITEL 1: BEVOR SIE ANFANGEN ZU PROGRAMMIEREN 


1.1. Das sollten Sie sich ersparen | 


Die meisten Hobby-Frogrammierer (gelegentlich auch soge- 
nannte Profi "ei entwickeln ihre Programme ohne jede  Vorar- 
beit direkt am Bildschirm. Das heißtı Von der Programmidee 
bis zum fertigen Frogramm wird alles ausschließlich an der 
Maschine erledigt. Bei einfachen Programmen ist dies sicher- 
lich noch möglich, bei größeren und anspruchsvolleren  Fro- 


grammen aber nicht mehr. 


Sicherlich ist es Ihnen auch schon so gegangenı Sie hatten 
plötzlich eine Idee zu einem neuen Programm. Da haben Sie 
sich dann einfach vor Ihren COMMODORE 64 gesetzt, die Ma- 
schine eingeschaltet und anschließend sofort drauflos pro- 
grammiert. Zu Anfang ging das ganz qut. Schon nach wenigen 
Frogrammzeilen, die auch noch gut zu überblicken waren, tat 
sich bereits etwas am Bildschirm. Aber mit dem größer wer- 
denden Programm und der sich bei der Programmierung ent- 
wickelnden Idee (!) kamen dann plötzlich die Probleme. Mit 
der Fräzisierung Ihrer ursprünglichen Frogrammidee wurde Ihr 
Programm immer  unübersichtlicher, komplizierter und  ver- 
schachtelter. Aber da gab es dann ja noch so etwas wie einen 
Programmer's Toolkit. Mit FIND, DUMP, RENUMBER und anderen 
Hilfsbefehlen wurde dann herumgedoktert und an den Symptomen 
laboriert, nicht aber an der Ursache! Auch das half schließ- 
lich nichts mehr. Ihr Durchblick schwand, die Fehler häuften 
sich, und aus Lust wurde Frust. Selbst wenn das Frogramm dann 
irgendwann doch noch fertig wurde - ganz fertig werden solche 
Programme in der Regel nie - so hinterließ es bei Ihnen doch 


wenig Befriedigung. 


Was war passiert? Sie hatten in quter alter Hackermanier 
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Codes in Ihren Commodore 64 ‘gehackt’, aber nicht program- 
miert. Zum Programmieren gehört nämlich eine ganze Menge 
mehr. Das, was Sie gemacht haben, nennt man Codieren. Man 
versteht hierunter das Umsetzen der einzelnen Programm- 
schritte in eine für den Computer verständliche Form, z.B. 
BASIC. Zum Programmieren gehört aber eine ganze Menge mehr 
als nur das Codieren. Es beginnt mit der sorgfältigen Aus- 
arbeitung der Frogrammidee. In der Fachsprache nennt man das 
Programm - bzw. Systemanalyse. In der Groß-EDV werden spezi- 
ell für diese Aufgabe hochbezahlte und entsprechend qualifi- 
zierte Systemanalytiker beschäftigt. Deren Aufgabe besteht 
einzig und allein darin, mögliche neue Anwendungen und Pro- 
grammideen so exakt zu analysieren und aufzubereiten, dai 
diese anschließend problemlos in Codes umgesetzt werden kön- 


nen, 


Da Sie sich mit Sicherheit keinen eigenen Systemanalytiker 
leisten kónnen, zeigen wir Ihnen in diesem Kapitel, wie eine 
sorgfältige Frogrammanalyse vor sich gehen sollte. Dabei er- 
fahren Sie keine genialen Programmiertrick's, sondern bekom- 
men lediglich gezeigt, wie man mit sorgfaltigem, schrittwei- 
sem Vorgehen eine Menge Pannen und lästige Programmierhin- 


dernisse umgehen kann. 


de Die Programm dee 


Fast jeder Computerfreak ist ständig auf der Suche nach 


neuen Ideen, die er programmtechnisch auswerten kann. Auch 
Sie, lieber Leser, können sicherlich ein Liedchen davon 
singen. Die meisten Programmierer setzen sich - nachdem 
ihnen ein geeigneter Einfall gekommen ist - sofort an ihren 


Computer und versuchen direkt, das Programm zu schreiben. 
Erfahrungsgemäß muß hier ein weiter Weg begangen werden,der 
mit allen möglichen Hindernissen gepflastert ist. Genau 
diese programmtechnischen Hindernisse wollen wir versuchen 
auszuschalten, bevor der Computer überhaupt eingeschaltet 
wird.  Grundlegend hierfiir ist eine detaillierte Ausarbei- 


tung des betreffenden Problems von Anfang an. 


Am Anfang eines jeden Programmes steht immer die Idee. Da 
man im Moment des Einfalls meistens am besten weiß wie das 
zukünftige Programm aussehen soll ist es am besten, wenn 
man die Programides in kurzen Stichworten  umschreibt. 
Später (am Schreibtisch) sollten Sie genau festlegen was 
Ihr Programm einmal können soll. Tragen Sie jetzt alle nóti- 
gen Problemstellungen und sonstige Einzelheiten für Ihr spä- 
teres Programm zusammen. Vielleicht haben Sie schon einmal 
Programme entwickelt, die in der Froblemstellung ähnlich ge- 
lagert waren. Sicherlich werden Sie in diesen Programmen 
Hilfsroutinen finden, die Sie komplett in das neue Projekt 


einbauen können. 


Wenn Sie Ihre PFrogrammidee sorgfältig beschrieben haben, 
ist der erste Schritt in der Programmvorbereitung getan. 
Dieser erste Schritt wird in der Fachwelt als PROBLEM- 
ANALYSE bezeichnet, Betrachten Sie diese Problemanalyse ein- 
fach als eine Art Stoffsammlung. An Hand von kleinen Bei- 
spielen wollen wir Ihnen erläutern, wie eine solche Problem- 
analyse am zweckmäßigsten zu Erstellen ist. Hierbei ist es 


noch relativ unbedeutend, wie das Problem später in eine, 
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dem Computer verständliche Sprache umzusetzen ist. 


Beispiel 1: Problemanalyse für eine Adressenverwaltung 


Wir wolien jetzt einmal darangehen, das Problem einer klei- 
nen Adressenverwaltung zu analysieren. Hierzu stellen wir 
uns gleich zu Beginn die Frage, die mit der Erstellung einer 


Problemanalyse im engen Zusammenhang stehtı 


Was will ich eigentlich programmieren ? 


Unser Programm soll es uns ermöglichen, Adressen einzugeben, 
diese auf ein externes Speichermedium abzuspeichern und 
wieder einzulesen. Ferner soll eine kleine Suchroutine vor- 
gesehen werden, über die einzelne Daten gesucht und auf dem 


Bildschirm ausgegeben werden können. 


Nachdem nun definiert ist was das Programm können muß, wol- 
len wir unser Problem (chen) in einzelne Teilprobleme zerle- 
gen. Jedes dieser Teilprobleme wird einzeln analysiert und 
unter Berücksichtigung aller nötigen Kriterien sorgfältig 
geplant. Unsere Adressenverwaltung gliedert sich in die fol- 


genden Teilprobleme! 


A) DATENEINGABE 
B) DATEI VERWALTEN 
C) DATEN SUCHEN 


a) Dateneingabe 


Hier müssen wir uns vor allem darüber Gedanken machen, wel- 
che Daten eigentlich gespeichert werden sollen. Legen Sie 
die einzelnen Kriterien fest, die gespeichert werden sollen 
und bestimmen sie, wieviele Zeichen jedes Kriterium maximal 
enthalten darf. Aus der Datensatzlänge ergibt sich später 


die maximale Anzahl der Datensätze, die in dem Arbeitsspei- 
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cher Ihres Commodore 64 gespeichert werden können. Ein klei- 
nes Rechenbeispiel soll dies veranschaulichen. Für unsere 
Adressenverwaltung sollen die Eingabekriterien wie folgt 


festgelegt werden: 


Nachname => 19 Zeichen 


Vorname => 15 Zeichen 


Strasse => 15 Zeichen 
PLZ => 4 Zeichen 
Telefon => 13 Zeichen 


Bemerkung => 25 Zeichen 


Datensatzlánge => 87 Zeichen 


Wie Sie wissen, darf bei Ihrem Commodore 64 der Speicher- 
platz (in BASIC) von 38911 Bytes nicht überschritten werden. 
Beachten Sie, daß unser fertiges Frogramm auch noch einen 
Teil dieses Speicherplatzes in Anspruch nehmen wird. Da wir 
jetzt noch nicht wissen wie lang unsere Adressenverwaltung 
werden wird, kann hier noch keine Aussage über die maximal 
mögliche Anzahl von Datensätzen gemacht werden. Da Sie je- 
doch sicherlich wissen, daß ein Byte stellvertretend für je- 
weils ein Zeichen steht, können Sie später über die FRE(X)- 
Funktion leicht den verbleibenden Speicherplatz ermitteln 
und diese Zahl durch die Datensatzlänge dividieren. In 
unserem Fall wäre dies eine Datensatzlänge von B7 Zeichen. 
Nehmen wir einmal an, es stünde uns uns noch ein freier 


Arbeitsspeicher von 29568 Bytes zur Verfügung: 


29568 : 87 = 3397.86 


Bei diesem angenommenen Wert wäre es möglich, 339 Adressen 
zu verwalten. Für unser Frogramm wollen wir einmal ‘tief- 
stapeln‘ und eine maximale Datensatzzahl von 200 festlegen. 
Nun haben wir alles Wissenswerte über die Dateneingabe nie- 
dergeschrieben. Mehr gehört nier nicht rein ! Wenden wir uns 


nun dem nächsten Froblem, der Dateiverwaltung, zu. 


B) Datei verwalten 


Da wir unsere Daten nicht jedesmal wieder neu eingeben wol- 
len, muß eine Möglichkeit zur Datenspeicherung auf externe 


Datenträger vorgesehen werden: 


Wir brauchen eine Datei! 


Hier müssen wir uns gleich die Frage nach der Dateiart stel- 


len: Sequentielle - oder Direktzugriffsdatei 7 


Auf Ihrem Commodore 64 ist es sicherlich am einfachsten, ei- 
ne sequentielle Datei aufzubauen (mit einer DATASETTE sind 
sogar nur sequentielle Dateien möglich). Wenn Sie ein Floppy 
1541 besitzen, haben Sie die Wahl zwischen drei möglichen 


Dateiarten |: 


Sequentielle Dateien 
Direktzugriffsdateien 


Relative Dateien 


Wir wollen unser Programm mit einer sequentiellen Datei auf- 
bauen, um den vielen Anwendern von Datasetten Rechnung zu 
tragen. Sollten Sie stolzer Besitzer einer Floppy 1541 sein 
wird Ihnen zum Thema Dateiverwaltung unser ’Großes Floppy 
Buch’ sicherlich wertvolle Hinweise geben können, die in 


Ihrem Bedienungshandbuch nicht gegeben werden. 

Die Datei wird sequentiell organisiert | 
Sollen mit einem einzigen Adressenverwaltungsprogramm mehre- 
re Dateien verwaltet werden (Bekannte, Firmenanschriften, 
Hoteladressen u.Ss.w.), so muß ein weiterer Faktor berück- 


sichtigt werden: 


Der Dateiname muß variabel sein | 
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Besonders bei der Dateiverwaltung mit der Floppy 1541 ist 
dieser Faktor sehr bedeutend. Für jede gespeicherte Datei 
muß ein eigener Name vergeben werden, da das DOS dieser Dis- 
kettenstation anhand dieser Bezeichnungen die einzelnen Da- 
teien auf der Diskette verwaltet. Wenn Sie eine Datasette 
zur Datenspeicherung verwenden wollen ist es durchaus mög- 
lich, mehrere Dateien mit dem selben Namen abzuspeichern. 
Dies ist jedoch nicht empfehlenswert, da dadurch Ihre Daten- 
sammlung mit der Zeit relativ unübersichtlich wird. Vergeben 
Sie deshalb bei jeder neuen Datei einen neuen,geeigneten Na- 
men (unter geeignet verstehen wir den Zusammenhang zwischen 


Dateinamen und dem Inhalt der gespeicherten Datei). 


Je nach Komfort des Programmes müssen Sie nun weitere über- 


legungen im Bezug auf die Dateiverwaltung anstelleni 


- Soll die Datei erweiterbar sein 7 

- Müssen die gespeicherten Daten von Zeit zu Zeit geändert 
werden (z.B. Lagerverwaltung) 7? 

- Sollen komplette Dateien vom Programm aus gelöscht werden 
können ? 

- Kann eine,bereits gespeicherte Datei von einer neuen Datei 


überschrieben werden 7 


Für unsere Adressverwaltung wollen wir von den obenstehenden 
Fragen die erste - Soll eine Datei erweiterbar sein ^? - in 


unser Beispiel einarbeiten. 


Die Datei muß erweiterbar sein | 


Diese Anforderung ist gerade bei einer Adressenverwaltung 
von großer Bedeutung. Lassen Sie Ihre Datei mit dem immer 
größer werdenden Bekanntenkreis wachsen. Bei einer sequenti- 


ell organisierten Datei geht dies folgendermaßen vor sich: 
1. Datei komplett einlesen. 


2. Datei über den Eingabemodus erweitern. 


J. Datei komplett abspeichern. 
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Bei diesen sequentiellen Dateien sind Sie dazu gezwungen, 


eine weitere Forderung an Ihr Programm zu stellen: 


Die geänderte Datei muß die alte überschreiben | 


Nun sind alle Anforderungen an unsere Adressdatei gestellt. 
Wir wollen uns nun Gedanken darüber machen,wie die Datei auf 
dem externen Speichermedium (Cassette oder Diskette) ange- 
legt werden soll. Das heißt, wir müssen festlegen welche 


Informationen in welcher Reihenfolge abgespeichert werden: 


1. Dateiname 
2. Anzahl der Datensätze 


3. Datensätze 


Die Punkte 1 und 2 sind vor allem dann nötig, wenn die be- 
treffende Datei geändert werden soll. Die Anzahl der gespei- 
cherten Datensätze kann im Programm für eine Schleifen- 


steuerung, zZ. B. in der Suchroutine sehr nützlich sein. 


Wir haben jetzt alle Forderungen und den Aufbau unserer Da- 
tei festgelegt und beginnen mit der Analyse des dritten 


Problemes. 


C) Daten suchen 


Zuerst müssen Sie sich darüber klar werden, wie und nach 
welchen Kriterien die einzelnen Informationen gesucht werden 
sollen. Genügt es, eine einzige Suchroutine zu schreiben, 
die nach Eingabe eines Suchkriteriums (in unserem Beispiel 
könnten das Name, Vorname,Postleitzahl etc. sein) nach dem 
entsprechenden Datensatz sucht oder ist es sinnvoll ein wei- 


teres Suchsystem in das Programm mit einzubauen 7 


Stellen Sie sich vor, Sie wollen sich mit Ihrem Programm die 
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Adresse eines Bekannten ausgeben lassen und wissen nicht 
mehr genau, wie der Name des betreffenden geschrieben wird. 
Hier kann es vorkommen, daß Sie immer wieder eine Fehlermel- 
dung erhalten, da der Computer genau nach dem sucht was ihm 
auch eingegeben wurde (ein Ähnlichkeitsvergleich wird nicht 
durchgeführt), Hier ist es zweckmäßig, eine zweite Zugriffs- 


möglichkeit auf die gespeicherten Daten zu schaffen: 


Auflisten nach einem Schlüsselfeld | 


Legen Sie fest, welches Ihrer Datenelemente das Schlüssel- 
feld sein soll, das stellvertretend für den jeweiligen Da- 
tensatz in der Bildschirmliste ausgegeben werden soll. In 
unserem Beispiel soll der Nachname als Schlüsselfeld dekla- 
riert werden. Mit Hilfe dieser Schlüsselfelder können Sie 
nun jederzeit iüberpriüfen, ob bei der Eingabe ein Schreib- 
tehler vorlag, indem Sie sich die Liste auf dem Bildschirm 
ausgeben lassen und visuell den betreffenden Datensatz su- 


chen. 


Zum Zweiten soll eine Suchroutine im Programm enthalten 
sein, die nach Eingabe des gewünschten Suchkriteriums den 
entsprechenden Datensatz automatisch heraussucht. In unserem 
Beispielprogramm können Sie unter den folgenden Kriterien 


wählen: 


l. Name 4, Wohnort 
Zi Vorname S. Telefon 
κ. Strasse 6. PLZ 


Hier möchten wir die Problemanalyse für unser Beispiel ab- 
schließen. Verfahren Sie bei Ihrer eigenen  Programmplanung 
bitte nach dem gleichen 'Strickmuster' wie wir es in diesem 
Kapitel beschrieben haben. Mit dieser Stoffsammlung haben 
Sie dann bereits den ersten Grundstein für eine professio- 


nelle Programmerstellung gelegt. 
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1.3. Der Frogrammentwur f 


Als Grundlage für den Programmentwurf dient Ihnen die Pro- 
blemanalyse (Stoffsammlung), die wir gemeinsam in Kapitel 
1.2. erstellt haben. Dort haben wir die wesentlichen Punkte, 
die zur Problemlösung mit Hilfe eines Computers benötigt 
werden, zusammengetragen. Bei großen und komplizierten Pro- 
blemstellungen ist es zu empfehlen, die gesamte Problematik 
in kleinere Teilprobleme zu gliedern. Entwickeln Sie nun ein 
grobes Gerüst der geplanten Programme  (Unterprogramme). 
Hierbei kommt es immer noch nicht darauf an, Einzelheiten 
zur späteren programmtechnischen Lösung zu erläutern. Zum 
Entwurf dieses Programmskeletts gibt es verschiedene, gra- 
phische Hilfsmittel. Das bekannteste Hilfsmittel zur logi- 
schen Darstellung eines Datenflußes ist zweifellos das Fluß- 
diagramm nach DIN 66001. Auf diese Methode wollen wir hier 
naher eingehen. Im Kapitel 1.5. beschreiben wir eine weitere 
Möglichkeit zur graphischen Lösung von Problemen, die vor- 
wiegend in der strukturierten Programmierung angewandt wirdı 


Das Struktogramm nach Nasi-Schneiderman. 


Lede ls Das Flußdiagramm 


Mit einem Flußdiagramm kënnen Sie vor allem für EDV-Laien 
den Datenfluß eines Problemes sehr anschaulich und über- 
sichtlich gestalten. Der einfache und unkomplizierte Aufbau 
solcher Ablaufdiagramme hat dafür gesorgt, daß diese Dar- 
stellungsart am weitesten verbreitet ist. In allen, bran- 
chenorientierten Massenmedien (CHIP, MC etc.) finden Sie 
regelmäßig Flußdiagramme, die die dort dargebotenen Frogram- 
me dokumentieren. Vorraussetzung für eine sinnvolle Anwen- 
dung von Flußdiagrammen ist die Kenntnis der Zeichen und 


Symbole, die bei dieser Darstellungsart verwendet werden. 
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im Folgenden wollen wir Ihnen diese Symbole, die nach DIN 


66001 festgelegt sind, kurz erläutern: 


P Grundelemente: 


Als erstes wollen wir Ihnen die eigentlichen Basissymbole 
zeigen. Mit Kenntnis dieser wenigen Zeichen sind Sie be- 
reits in der Lage, kleinere und unkomplizierte Flußdia- 


gramme selbst zu entwerfen. 


Dieses Symbol steht für den Programmstart bzw. für das Pro- 
srammende. Auch Programmein - und Programmaussprünge werden 


-ıt diesem Zeichen gekennzeichneti 


Mit dem folgenden Zeichen werden Anweisungen, also Tätigkei- 
ten oder Vorgänge die im Computer oder vom Programm erledigt 
werden, dargestellt. Hierbei steht im Symbol ein Text, der 


auf die Art des Verarbeitungsschrittes hinweist: 


Datei 


ottnen 


In der nun folgenden Raute werden immer Entscheidungen ab- 
verlangt, nach deren Bedingungen (ja/nein) das Programm ver- 


zweigen soll. Bei der Anwendung dieses Symboles in einem 


21 


Flußdiagramm ist es unwesentlich, ob die Antwort auf die ge- 
stellte Frage vom Computer oder durch den Anwender beantwor- 
tet wird (z.B. bei einer Abfrage, ob ein Programm wiederholt 


werden soll): 


Als letztes Grundsymbol soll das Zeichen für die Bildschirm- 


ausgabe bzw. ein akkustisches Signal vorgestellt werden. 


An dieser Stelle noch ein paar Worte zur Normung dieser Sym- 
bole: Alle Symbole sind nach DIN 66001 genormt. Trotzdem 
kann man immer wieder feststellen, daß fast jeder Frogram- 
mierer seinen eigenen Stil bei der Darstellung von Flußdia- 
grammen entwickelt hat, mit dem er einfach besser zurecht 
kommt. Dies ist sicherlich nicht weiter tragisch. Wenn je- 
doch mehrere Programmierer an dem ein und selben Frojekt ar- 
beiten, ist eine normgerechte Anwendung unerläßlich (was 
würde wohl geschehen, wenn mehrere verschiedene Zeichenstile 


zu einem fertigen Frogramm zusammengefügt werden sollen 7). 


Ze Weitere Symbole 


Nachfolgend werden weitere Symbole beschrieben, die am hau- 


N 
hJ 


*igsten bei Darstellung in Flußdiagrammen verwendet werden. 
Hierbei erhebt diese Liste keinen Anspruch auf vollständig- 
«eit, da wir nur auf die wesentlichen Zeichen und Symbole 


eingehen wollen. 


zin-/Ausgabe (INPUT/OUTPUTIı 


Zeichen 
senden 


"anuelle Eingabe (MANUAL INPUT): 


Datum 


einlesen 


-.stenausgabe (DOCUMENT): 


Liste 
drucken 


szeicherung auf Diskette (ONLINE STORAGE): 


dresse 


Unterprogrammaufruf (CALL SUBPROGRAM) : 


Sor-ieren 


An unserer Adressenverwaltung soll die Anwendung eines Flufi- 
diagrammes kurz demonstriert werden. Die Problemanalyse wur- 
de im Kapitel 1.2. schon erstellt. Wir müssen uns jetzt nur 
noch Gedanken darüber machen, welche Teile der Gesamtproble- 
matik als Unterprogramme ausgelegt werden sollen. Für unsere 


Adressenverwaltung könnte das folgendermaßen aussehen: 


Hauptprogramm Auswahlmenü und Eingabeüberprü- 
fung. 
Unterprogramm i Daten auf Diskette abspeichern. 


Unterprogramm 2 : Daten von Diskette einlesen. 
Unterprogramm 3 Adressen eingeben 
Unterprogramm 4 t Adressen suchen. 

Unterprogramm 4.1. i Liste nach Schlussel ausgeben. 
Unterprogramm 4.2. Adressen nach Kriterium suchen. 


Es ist wenig sinnvoll, manchmal sogar unmöglich ein Gesamt- 
fluBdiagramm über die komplette Problematik mit allen pro- 
grammtechnischen Raffinessen zu erstellen. Zuerst sollte ein 
sehr grober Ablaufplan der Problematil erstellt werden, der 
das Zusammenwirken zwischen Hauptprogramm und den einzelnen 


Unterprogrammen wiederspiegelt. Erst wenn die Flußdiagramme 


für die - oben festgelegten - Teilprobleme erstellt werden, 
sollte man den Datenfluß näher beschreiben Gintergeordnets 
Flußdiagramme). 

Nachdem der gesamte Ablauf im Groben bekannt ist, werden nun 
die einzelnen Teilprobleme graphisch dargestellt. Wie oben 
schon erwähnt, wird hier auf den Datenflu etwas näher ein- 


gegangen. 


Hauptprogramm : Auswahlmenü und Eingabeüberprüfung. 
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START 


Auswahl 
eingeben 


Datei 
schreiben 


Datei 
chreiben: 


Adressen 


Adressen 


eingeben? eingeben 


Adressen 
suclien 


Adressen 
Suchen? 


Nein 


Programm 
beenden: 


Ja € 
.nterprograma 
ENDE 


Nein 


"Ungültige 
Auswahl" 


Unterprogramm 1: Daten auf Diskette abspeichern. 


Ünterprogramm 


Datei 
schreiben 


Datei 
öffnen 


Zahl der 
Datensätze 
schreiben 


Zeiger auf 
ersten 
Datensatz 
einrichten 


Existiert 
Datensatz? 


Datei 


Datensatz 
schreiben 


schließen 


Zeiger auf 
nächsten 
Datensatz 


Unterprogramm 
ENDE 
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Unterprogramm 2: Daten von Diskette einlesen. 


Unterprogramo 
Datei lesen 


Datei 
offnen 


Zahl der 
Datensatze 
lesen 


Zeiger/Zähler 
einrichten 


Alle Sätze 
gelesen? 


Datensatz Datei 


lesen 


schließen 


Zeiger/Zähler 
auf nächsten 
Datensatz 


Unterprogramm 
ENDE 
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Unterprogramm 3: 


Adressen eingeben. 


Unterprogramn 
"Adressen 
eingeben 


Eingabemaske 
aufbauen 


Adresse 
eingeben 


Datensat 2 
speichern 


Anzahl der 
Datensatze 


erhohen 


.nterprogramm 
ENDE 
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Unterprogramm 4: Adressen suchen. 


Unterprogramm 
Adressen 
suchen 


Liste nach Nach 
namen oder 
Suchen nach 
Kriterium 


Auswahl 
eingeben 


iste nach N Jā Liste nach 
Nachnahmen) Nachnahmen 


Nein 


Suchen 
Suchen nacNJa 


nach 
Kriterium 


Nein 


Ungültige 
Auswahl 


EEN 
EnDE 
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Unterprogramm 4.1.: 


Liste nach Schlüssel 


Unterprogramd 
Liste nach 
achnahmen 


Zeiger auf 
1l, Datensatz 
richten 


Alle Sätze 
ausgegeben? 


Unterprogramm 
ENDE 


Nachnahmen 
ausgeben 


Zeiger auf 
nächsten 
Datensatz 
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ausgeben. 


Unterprogramm 4.2. 


Nein 


: Adressen nach Kriterium 


'nterprogrami 


Suchen nach 
riterium 


Suchkriterium 
eingeben 


Suchdaten 
eingeben 


Zeiger aut 
i. Datensatz 
einrichten 


Suchfeld Nein 


Suchdaten2 


Datensatz 
ausgeben 


Zeiger auf 
nachsten 
Datensatz 


Alle Sätze 
geprüft? 


Ja 


Unterprogramm 
ENDE 
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suchen. 


Nachdem nun all dies geschehen ist, kann man den Programm- 
entwurf als abgeschlossen betrachten. Mit der eigentlichen 
Programmierung (Codierung) kann man jedoch immer noch nicht 
anfangen. Zuvor muß man weitere, detaillierte Überlegungen 
anstellen, die vom Entwurf der verschiedenen Bildschirmmas- 
ken bis hin zum eigentlichen Programmaufbau reichen sollten. 
Wie man hier am zwechmäßigsten vorgeht wollen wir Ihnen auf 


den folgenden Seiten zeigen. 
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1.4. Vorbereitungsarbeiten zur Programmierung 


Nach der Definition der Programmidee bzw. der Istaufnahme der 
geplanten Anwendung und der Festlegung des späteren 
Programmablaufes können Sie noch längst nicht anfangen, zu 
programmieren. Zunächst sind noch einige sehr wesentliche 
Vorarbeiten zu erledigen. Alle diese Vorarbeiten, von der 
Gestaltung der Bildschirmmasken bis zu den grundsätzlichen 
überlegungen zum Programmaufbau sind sehr wichtig und sollten 
zeitlich unbedingt vor dem Beginn der eigentlichen 
Programmierung liegen. Auf diese Weise vermeiden Sie, auch 
wenn Ihnen viele dieser Vorarbeiten zunächst lästig und 
unnötig erscheinen mögen, spätere Mehrarbeit und verhindern 
mögliche Fehler. 


1.4.1. Die Gestaltung der Bildschirmmaske 


Mit der Bildschirmmaske und ihrem optischen Aufbau steht und 


fällt ein Programm. Je klarer und logischer Ihre 
Bildschirmmasken aufgebaut sind, desto einfacher wird die 
Bedienung des Frogramms für den späteren Benutzer. 


Schließlich ist die jeweilige Maske in der Regel das einzige, 
was er vom Frogramm sieht. Uber die sinnvolle Gestaltung 
einer Bildschirmmaske und die programmtechnische Abwicklung 
finden Sie detaillierte Aussagen im Kapitel 2.1.. 

Zunächst befassen wir uns hier mit der optischen Gestaltung 
der Bildschirmmasken. Als Hilfsmittel hierfür haben sich 
Bildschirmmasken-Entwurfsblätter sehr bewährt. In der 
Groß-EDV gehören sie zum Standard-Handwerkszeug eines 
Programmierers. Wir haben ein solches Bildschirmmasken- 
Entwurfsblatt für den COMMODORE 64 entwickelt und 
präsentieren es Ihnen nachfolgend. Im Grunde genommen ist es 
ein einfaches Abbild des 64er Bildschirms mit seinen 25 x 40 
= 1000 Feldern. Kopieren Sie sich dieses Blatt beliebig oft 
und experimentieren Sie anschließend solange, bis Ihnen der 
Aufbau Ihrer Bildschirmmaske gefällt. Schnell werden Sie 
feststellen, daß sich mit Radiergummi und Bleistift leichter 
und schneller gestalten läßt als durch das fortlaufende 


Ändern von Frogrammzeilen. 
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Bemerkungen: 


Mit einem fertigen Bildschirmmasken-Entwurfsblatt 
programmiert es sich hinterher erheblich leichter. Die 
Zeilen- und Spaltennummerierung des Entwurfsblattes hilft 
Innen bei der exakten Positionierung des Cursors in Ihrem 
Programm. Durch den endgültigen Aufbau Ihrer Bildschirmmaske 
erhalten Sie zudem wichtige Hinweise darüber, welche und 
wieviele Eingabe- bzw. Ausgabevariablen für die jeweilige 
Maske vorgesehen werden müssen. Dies kommt Ihnen besonders 
bei der Erstellung der Variablenliste (siehe Kapitel 1.4.4.) 


zugute. 
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1.4.2. Die Festlegung der Dateien 


Wenn Sie in Ihrer Problemanalyse festgestellt haben, dan in 
Ihrem Programm Dateien benutzt werden, so sollten Sie jetzt 
den Aufbau dieser Datei (en) genau festlegen. Auch hierzu 
haben wir für Sie wieder ein entsprechendes Entwurfsblatt 
entwickelt, mit dem Sie wie bei den Bildschirmmasken Aufbau 
und Struktur jeder einzelnen Datei genau festlegen und 
beschreiben können. Wir haben das DATEIENTWURFSBLATT 
nachfolgend einmal als Muster ausgefüllt und einmal blanko 


zum beliebigen Kopieren abgebildet. 


Hier die Erklärung der einzelnen Positionen des Datei- 
entwurfsblattes: 


Dateiname Tragen Sie hier den Namen Ihrer Datei ein. 


Bei der Namenswahl sollten Sie einen Bezug 
zur Aufgabe der Datei wählen, z.B. ADRESS 
für eine Adressdatei oder FIBDAT für eine 


Parameterdatei zur Finanzbuchhaltung 


Programmname : In dieses Feld gehört der Name des 


Frogramms, zu dem die Datei gehört 


Dateiart : Geben Sie hier an, ob es sich um eine 
sequentielle, relativ, direkt oder ISAM bzw. 


QUISAM organisierte Datei handelt 


Datensatzlänge : die Gesamtlänge eines Datensatzes 


max. Anzahl ı geben Sie hier, falls die Dateiart eine 
Datensätze feste Dateilänge vorschreibt oder Sie aus 
organisatorischen Gründen (die 170 K einer 
VC-1541 reichen nicht weit und steter 
Diskettenwechsel ist sehr lästig) den Umfang 


Ihrer Datei limitieren wollen 
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Nr. 


Art 


Länge 


Position 


Variable 


Bemerkung 


Zugriff von 
anderen Pro- 


grammen 


gibt die fortlaufende Nummer der Felder an 


und hat nur organisatorische Bedeutung 


hier können Sie angeben, ob es sich um ein 
alphanumerisches (A), numerisches (N) oder 


gepacktes (P) Datenfeld handelt 
die maximale Länge des einzelnen Feldes 


der Beginn des Feldes vom Satzanfang aus 


gesehen 


hier können Sie bereits die entsprechende 
Ein- bzw. Ausgabevariable festlegen. Dies 
trägt wesentlich zur späteren Übersicht- 
lichkeit und  Anderungsfreundlichkeit Ihres 
Programms bei und erleichtert die Erstellung 


der Variablenliste 


hier können Sie z.B. gewisse Codes 
festlegen, wie z.B. Anredeschlüssel (O=Herr, 
1=Frau, Z=Firma). 

In das zweite Feld Bemerkung am Fuß des 
Blattes gehören dann Dinge, die die gesamte 
Datei betreffen, wie z.B. die Bearbeitungs- 
formen mit dem oben angegebenen Programm 


(ERFASSEN, AUSWERTEN etc.) 


häufig kommt es vor, daß Dateien von meh- 
reren Programmen benutzt werden. Geben Sie 
hier an, welche Programme noch auf diese 
Datei zugreifen und zu welchem Zweck und in 
welcher Form diese Zugriffe geschehen. 

WICHTIG: Wenn eine Datei in mehreren Pro- 
grammen verwendet wird, empfiehlt es sich, 
ihr in allen Frogrammen jeweils die gleichen 
Ein-/Ausgabevariablen zuzuordnen. Dies er- 
höht ungemein die Ubersichtlichkeit und An- 


derungsfreundlichkeit eines Programmpaketes 


DATEIENTWURFSBLATT FÜR COMMODORE 64 
Dateiname: Programmname: max. Anzahl 


Datensätze : 
Dateiart . Datensatzlänge: 


DATENSATZAUFBAU- einzelne Felder einzelne Felder 


Bemerkung Art Länge Position Variable Bezeichnung 
Bemerkungen : Zugriffe von anderen με ο genen | 


Programmname με ο genen | 
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DATEIENTWURFSBLATT FÜR COMMODORE 64 


Dateiname: ADRESS Programmname: ΝΕΛ/ΘΟ474 max. Anzahl 
Datensätze : 300 


Dateiart : AFL Datensatzlänge: 76 


DATENSATZAUFBAU- einzelne Felder 
Nr. Bemerkung Art Länge Position Variable Bezeichnung 


> A A gz αφ 


Zugriffe von anderen Programmen 
Programmname Zugriffszweck 


Bemerkungen: 
Anlegen, Andeın, loschen, 


Duck ës, Liste uno 
Achess auf Aleber 


MAHN Druck 0268/7405 mah- 
RUNGEN 


1.4.3. Rechenformeln. 


Lassen Sie uns jetzt zu einem Thema kommen, das nur zu häufig 
im Rahmen der Programmvorbereitung übergangen wird und dann 
für endlose Fehler sorgt. Gemeint sind alle in Ihrem Programm 
vorkommenden Rechenformeln, von der Mehrwertsteuer bis zur 
Rundungsroutine. Es empfiehlt sich, hier, wie nachfolgend 
beschrieben vorzugehen. Als Beispiel haben wir dabei die 


Errechnung einer Bruttoertragsprovision gewählt. 


vorgehen Beispiel 

1. Legen Sie zunächst fest, Die Bruttoertragsprovision 
was überhaupt wor aus (BF) soll sich errechnen als 
errechnet werden soll 10% der um einen Sockelbetrag 
von DM 500,- verminderten 

Differenz zwischen 

Einkaufspreis (EK) und 

Verkaufspreis (VK), wobei der 


Verkaufspreis vorher um die 
darin enthaltene Mehrwert- 


steuer zu verringern ist 


2. Schreiben Sie als nächstes BF=(VKı1.14-500-EK) ΧΟ. 1 
die entsprechende Formel 
in der ursprünglichen ma- 


thematischen Form auf 


3. Rechnen Sie zunächst diese (570011.14-500-2500) ΚΟ. 1=200 
Formel per Hand bzw. mit 
Hilfe eines Taschenrech- 
ners anhand einiger 
typischer Musterwerte 
durch, und prüfen Sie die 


Korrektheit Ihrer Formel 


41 


4. Setzen Sie jetzt Ihre For- BP = (V1:M1-S00-EK) κο. 1 
mel, falls sich sich als 
richtig erweist, in ein wobei! 
BASIC-Programm um. Dieses 
BASIC-Programm sollte nach BF = Bruttoertragsprovision 


Möglichkeit genauso ausse- 


hen, wie später in Ihrem Vi = Verkaufspreis inkl. 
Anwendungsprogramm. Dies 
gilt insbesondere für die Mehrwertsteuer 


zu benutzenden Variablen. 

Dies ist insbesondere Mi = Mehrwertsteuerverteiler 
wichtig, da bei einer Um- 

setzung sonst wieder Feh- EK = Einkaufspreis 
ler passieren können. Be- 

achten Sie bitte, woher 

die Grundwerte kommen und 

wohin das Ergebnis soll. 

überprüfen Sie auch, ob 

diese Rechenformel noch 

häufiger in Ihrem Programm 

benötigt wird. Dies ist 

sowohl für die Variablen- 

testlegung wichtig, als 

auch für die eventuelle 

Gestaltung Ihrer Formel 

als ein mit  GOSUB anzu- 


springendes Unterprogramm. 


5. Testen Sie jetzt Ihr Pro- 
gramm mit den gleichen 
Werten wie in Schritt 3 
und überprüfen Sie, ob die 
Ergebnisse identisch sind. 
Andernfalls korrigieren 
Sie Ihr Programm solange, 


bis es stimmt 


Das Verfahren mag sich sehr umständlich anhören, erspart Ihn- 
en aber im Endeffekt eine Menge Arbeit. Oft beruhen spätere 
Frogrammfehler auf fehlerhafte Rechenroutinen, wobei es sich 
oft um simple Rechenvorgänge handelt, die der Frogrammierer 
nach dem Motto "in den Grundrechenarten bin ich seit dem 2. 


Schuhl jahr Spitze" salopp ohne überprüfung codiert “at. 
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1.4.4. Die Druckausgabe 


Zu den Frogrammvorbereitungen gehört in jedem Fall auch die 
Planung der Druckausgabe. Wie schon bei der Bildschirmmaske, 
sind hier auch optische und ergonomische Gesichtspunkte 
wichtig, da die Druckausgabe, die meist als Liste erfolgt, 
ebenfalls eine wichtige Verbindung zwischen dem Benutzer 
einerseits und dem Programm bzw. dem Computer andererseits 
darstellt. In der Regel gehen einer Druckausgabe mit Ausnahme 
eines einfachen Listings immer irgendwelche Aufbereitungen 
der auszudruckenden Daten voraus. Deshalb sollte die 
Druckausgabe sehr sorgfältig geplant werden. Bei der 
Festlegung, was in wlecher Form ausgedruckt werden soll, sind 
die folgenden Punkte in der angegebenen Reihenfolge zu 


berücksichtigen: 


— was soll gedruckt werden 


- welche Dateien werden benutzt und welche Datensätze 


oder Teile hiervon 


- in welcher Form sollen die Daten vorher aufbereitet und 
ausgewertet werden. Bei Rechenformeln gehen Sie bitte 


analog wie in Kapitel 1.4.5. beschrieben vor 


- auf welchen Drucker soll ausgedruckt werden. 
Der jeweilige Drucker mit seinen Möglichkeiten und 
Eigenschaften (Druckbild, Formularbreite, Zeichen pro 
Zeile, Anzahl der Durchschläge etc.) bestimmt 
wesentlich die Druckausgabe. In der Regel werden Sie 
nur einen Drucker haben. Schreiben Sie aber Programme 
für fremde Benutzer, so müsen Sie Ihre Druckausgabe so 
flexibel gestalten, daß sie auch auf unterschiedlichen 
Druckern ablaufen kann. Besonders gilt dies für 


Standardprogramme. 


- wie soll die eigentliche Druckmaske aussehen 


Festgelegt werden muß hier nicht nur, welche Elemente 
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der einzelnen Datensätze in welcher Reihenfolge 
ausgedruckt werden sollen, sondern auch wie die gesamte 
äußere Form der Druckmaske aussehen soll. Hierzu 
gehören Breite, Durchschläge, einzeiliger/mehrzeiliger 
Druck, Uberschriften, Zwischenüberschriften, eventuelle 
Summen und anderes mehr. Gehen Sie am besten so wie bei 
der Bildschirmmaske vor, und legen Sie Ihre Druckmaske 
zunächst schriftlich mit Bleistift und Papier fest. 
Zwei wesentliche Unterschiede zur Bildschirmmaske 
müssen Sie dabei in jedem Fall berücksichtigen. Den 
Druckkopf können Sie im Gegensatz zum Bildschirmcursor 
nur in eine Richtung bewegen (Ausnahmeı Plotter). 
Zeilen- und Spaltenposition des Druckkopfes können Sie 
während des Druckes nicht abfragen, sondern müssen 
stattdessen in Ihrem Programm mit entsprechenden 
Zahlern arbeiten. Wichtig ist dies vor allem für den 


Vorschub bei Formularende. 
- was passiert nach dem Ausdruck, z.B. Löschen einer 


Lagerbewegungsdatei nach Ausdruck der Lager- 


bewegungsliste. 


Nützliche Routinen zur Gestaltung Ihrer Druckausgabe finden 


Sie in Kapitel 3. 
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1.4.5. Die Variablenliste und Tips zum Umgang mit Variablen 


Da im COMMODORE-BASIC eine vorherige Definition von Variablen 
nicht erforderlich ist, ermuntert es zum sehr freigiebigen 
Umgang mit Variablen. Viele Programmierer  streuen deshalb 
Variablen munter ohne Vorplanung quer durch ihr Programm. Die 
Folge sind nicht nur sehr  unübersichtliche Programme, in 
denen sich - wenn überhaupt - schon nach kurzer Zeit auch der 
Ersteller selbst nicht mehr zurechtfindet. Es entstehen auch 
schwer zu lokalisierende Fehlerquellen, meist durch unbewußte 
Doppelbelegung von Variablen. Das Zusammentügen von 
Programmen mit dem MERGE-Befehl oder gar die Arbeit mit der 
Overlaytechnik (Weitergabe von Variableninhalten an das 
nächste Programm, siehe nähere Darstellung im Kapitel 5) sind 


bei unkontrolliertem Variablengebrauch schier unmöglich. 


Der Variableneinsatz muß also vernünftig geplant werden. Dies 
haben Sie ja schon in den vorhergehenden Kapiteln gesehen, in 
denen die Variablenfestlegung ein wichtiges Thema war. 
Hilfsmittel dazu ist eine Variablenliste. Sinnvollerweise 
sollte sie für jede benutzte Variable folgende Informationen 


enthalten: 


E$ = Einkaufspreis 
erstmals benutzt in Zeile 650 
weiter in Zeilen 670, 830, 835, 1160 


Die ersten beiden Zeilen des oben angeführten Beispiels, 
nämlich die Erklärung des Variableninhalts und die Angabe der 
Zeile, in der die Variable zum ersten Mal benutzt wird, 
sollten von vornherein in jeder Variablenliste enthalten 
sein. Die dritte Zeile mit der Nennung aller Zeilen, in denen 
die Variable anschließend noch vorkommt, ist zwar 
wünschenswert, aber mit größerem Aufwand verbunden. Deshalb 
kann diese Information auch nach Programmfertigstellung unter 
Zuhilfenahme eines Toolkits oder eines Cross Reference 
Listings zusammengestellt werden. In jedem Falle aber gehört 


sie zu einer guten Dokumentation und sollte später zur 


abschließenden Testphase als wichtiges Hilfsmittel bei der 


Fehlersuche zur Verfügung stehen. 


Nachfolgend dürfen wir Ihnen noch ein paar interessante Tips 
zum Umgang mit Variablen geben, die sich zwar teilweise 
gegenseitig ausschließen, aber für sich jeweils sehr mützlich 


sein können: 


Leider läßt das COMMODORE-BASIC keine langen Variablennamen 
zu. Aber auch zweistellige Variablennamen können Sie mit 
etwas Phantasie so wählen, 80 sie Aufschluß über das geben, 
was sich hinter ihnen verbirgt. Bezeichnen Sie deshalb den 
Verkaufspreis ruhig mit VK, den Einkaufspreis mit EK, die 
Menge mit M und den Namen mit NAS. 


Variablendefinition bringt Zeitgewinn 

Der BASIC-Interpreter des COMMODORE 64 legt numerische 
Variable direkt hinter dem Programmende in Richtung  RAM-Ende 
und Stringvariable jeweils vom RAM-Ende Richtung Programm 
nacheinander in der Reihenfolge der Erstnutzung ab. Bei jedem 
Variablengebrauch sucht er die abgelegten Variablen vom 
Anfang an durch, bis er die gewünschte gefunden hat. 
Rechtzeitige Definition haufig benutzter, zeitkritischer 
Variablen am Frogrammanfang (X$2"", A=0 etc.) kann damit 


Zeitvorteile bringen. 


Mehrfachverwendung spart Speicherplatz 

Jede zusätzliche Variable belegt Speicherplatz. Wenn aber 
Speicherplatz knapp ist, bietet es sich an, bestimmte 
Variable mehrfach für unterschiedliche Aufgaben zu verwenden. 
Zum Beispiel Zählvariable bei  Frogrammschleifen. Allerdings 
steht dieser Punkt der oft geforderten übersichlichkeit Ihres 
Programms unter Umstanden entgegen. Wenn mangelnder 
Speicherplatz Sie zu einer Mehrfachverwendung von Variablen 
zwingt, ist deshalb eine exakte Festlegung, welche Variable 


wann wofür verwendet wird, unbedingt notwendig. 
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Verwenden Sie möglichst in all Ihren Programmen für gleiche 
Anwendungen stets gleiche Variable. So schaffen Sie nicht nur 
übersicht für sich selbst in Ihren Frogrammen, sondern 
ermöglichen sich auch den Aufbau und die Nutzung einer 
umfangreichen Bibliothek an Programmbausteinen, die sich 
gegenseitig nicht durch gleiche Variablennamen ins Gehege 


kommen. 


DIMensionierung spart Speicherplatz 
Indizierte Variable vom Typ A$(1) braucht man im 
COMMODORE-BASIC erst bei mehr als 10 Einträgen vorher zu 


dimensionieren. Allerdings reserviert dafür der Interpreter 


beim Gebrauch einer nicht DIMensionierten Variable LO 
Speicherplätze. Durch entsprechende DIMensionierung, Σ.Β. 
A$(4), können Sie dies umgehen und den benötigten 


Speicherplatz auf das unbedingt gebrauchte beschränken. 


1.4.6. Die Frogrammdokumentation 


Bevor wir über die Dokumentation sprechen, sollten wir erst 
einmal zwei Dinge voneinander trennen, die immer wieder 
durcheinandergeworfen werden. Die Bedienungsanleitung, zu der 
wir in einem späteren Kapitel noch kommen, hat nichts mit der 
Programmdokumentation zu tun. Sie ist für den Benutzer eines 
Programms geschrieben und erklärt ihm den Umgang mit diesem 
Programm. Die Dokumentation hingegen schreiben Sie in erster 
Linie für sich selbst, den Ersteller des Programms, und für 
alle anderen, die Ihr Programm einmal pflegen oder ändern 


sollen. Die Dokumentation besteht aus folgenden Teilen: 


- Programmidee und Programmablaufplan 


- Bildschirmmasken-Entwurfsblätter 


- Dateientwurfsblätter 
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- Rechenformeln 


- Druckmasken 


- Variablenliste 


- zeilenorientierte Frogrammbeschreibung 


Sie sehen, bei vernüftiger Programmplanung steht der größte 


Teil der Dokumentation bereits vor dem ersten 
Programmierbefehl. Was jetzt nur noch fehlt, ist die 
zeilenorientierte Programmbeschreibung. In ihr sollte 
lückenlos aufgeführt sein, was wo passiert. Voraussetzung 


dafür ist allerdings, daß Sie diesen wichtigen Teil der 
Dokumentation paralell zur eigentlichen Programmierung 
erstellen. Niemand kennt Ihr Programm so gut wie Sie selbst 
im Moment der Programmierung. Ersparen Sie sich deshalb 
spätere Frustrationen durch inzwischen unverständlich 
gewordene Listings, und dokumentieren Sie Ihr Programm von 
Anfang an. REM-Zeilen sind mit Sicherheit eine gute 
Ergänzung, aber keine Alternative zur zeilenorientierten 


Programmbeschreibung. 


Wenn Sie viel mit Programmbausteinen arbeiten, empfiehlt es 
sich, die detaillierten Beschreibungen dieser Bausteine per 
Textverarbeitung zu verwalten. Dann können Sie Ihre 


Dokumentation genauso zusammenMERGEn, wie Ihr Programm. 
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1.4.7. Grundsätzliche Uberlegungen zum Programmaufbau 


Dies ist der letzte Schritt vor der eigentlichen 
Programmierung (Codierung). Hier sollten Sie grundlegende 
überlegungen bezüglich des Programmaufbaus anstellen. Dabei 


geht es diesmal nicht so sehr um den späteren Benutzer des 


Programms, sondern um Sie selbst, den Ersteller. Ein 
einwandfreier, übersichtlicher Aufbau Ihres Programms 
erleichtert nicht nur die Programmierung, sondern auch die 


Testphase und vor allem spätere Änderungen und Erweiterungen. 


Sicherlich haben Sie sich, bevor Sie mit den umfangreichen 
Programmvorbereitungen begannen, bereits Gedanken über 
Frogrammgröße und Speicherkapazität sowohl im COMMODORE &4 
als auch auf der Floppy gemacht. Es wäre wohl völlig 
unsinnig, Projekte wie etwa eine Mitgliedsdatei für ADAC oder 
ADK auf einem COMMODORE 64 überhaupt anzugehen. Aufgrund der 
vielen zusätzlichen Informationen und Daten, die Sie im 
Verlauf der Programmvorbereitung gesammelt haben, können und 
sollten Sie jetzt aber abschätzen, inwieweit Sie von 
vornherein großzügig mit Speicherplatz umgehen können, was 
natürlich die Programmerstellung leichter macht und sowohl 
Ubersichlichkeit als auch  Anderungsfreundlichkeit fördert, 
oder ob Sie grundsätzlich mit Speicherplatz sehr sparsam 
umgehen müssen. Diese überlegungen haben wesentlichen Einfluß 
auf die spätere Programmierung und den Programmaufbau. Bitte 
übergehen Sie diesen Funkt nicht. Ein zu großes Programm 
später so zurechtzuzimmern, daß es gerade in den Speicher 
paßt, ist eine wenig dankbare und sehr aufwendige Aufgabe, 


die Sie sich ersparen sollten 


Als nächstes sollten Sie untersuchen, inwiefern Sie auf 
fertige Bausteine oder Teile anderer Programme zurückgreifen 
können. Durch übernahme derartiger Programmteile können Sie 
sich viel Arbeit ersparen. Grundsätzlich sollten Sie deshalb 
die Zeilennummern und Variablenbezeichnungen häufig 
verwendeter Unterprogramme so wählen, daß diese 


Unterprogramme weder miteinander noch zu möglichen neuen 
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Programmen in Konflikt stehen. Neue Frogramme lassen sich 
damit ohne Umsetzprobleme rasch aus vorhandenen Modulen 


zusammensetzen. 


Legen Sie nun die Gliederung von Hauptprogramm und 
Unterprogrammen endgültig fest und vergeben Sie im vorhinein 
die Zeilennummern bzw. Zeilenbereiche, wo das betreffende 


Programmteil im Listing zu plazieren ist. 


Wo sollen im Programm welche REM-Zeilen vorgesehen 
werden ? Dieser Frage sollten Sie hier auch nachgehen. 
Trennen Sie die einzelnen Frogrammteile durch REM-Zeilen und 
geben durch entsprechende Kommentare Hinweise darüber, welche 
Aufgabe das jeweilige Programmodul zu erfüllen hat. Eine 
wichtige REM-Zeile sollte ganz zu Angfang Ihres Programms 


stehen: 


10 REM KONTOVERWALTUNG, VERSION 2.06, STAND 10.12.1984 


diese Zeile sollten Sie stets aktualisieren, damit Sie immer 
wissen, mit welcher Version Ihres Programms Sie es zu tun 
haben. Im Anschlufi daran sollte dann in einer  REM-Zeile der 


ebenfalls sehr wichtige Copyright - Vermerk folgen. 


Schätzen Sie ab, wie groß Ihr zukünftiges Programm 
voraussichtlich werden wird. Sicherlich sind solche 
Schätzungen nicht sehr zuverlässig, man kann jedoch recht gut 
abwägen ob Frogramm und vorgesehene Datenmenge im 


Arbeitsspeicher Flatz finden. 


Die Frogrammvorbereitung hat nun Ihren Abschluß gefunden. 
Bleibt noch, das Programmlisting zu erstellen und in den 
COMMODORE 64 einzugeben. 

Vergessen Sie dabei nicht, in sehr regelmäßigen kurzen 
Abständen Ihr Programm oder was bisher davon steht 
abzuspeichern. Sie wären nicht der Erste, der besessen von 
stets neuen Geistesblitzen wie wild drauflosprogrammiert, daß 
Abspeichern vergißt und dann irgendwann mitten in der Nacht 


übermüdet den Rechner ausschaltet (oder sich am nächsten 


Morgen von seinem kleinen Sohn das Kabel herausziehen läßt). 
Auch hochkarätigen Experten ist soetwas schon passiert. 
Speichern Sie deshalb in kurzen Abständen Ihr Frogramm ab und 


fertigen Sie regelmäßig Sicherheitskopien an. 


leS: Strukturiertes Programmieren an einem Beispiel - 
Der COMMODORE 64 als Taschenrechner 


Strukturiertes  Frogrammieren. Dieses Schlagwort hört man in 
letzter Zeit immer häufiger in den branchenorientierten 
Massenmedien. Was ist eigentlich strukturiertes Programmie- 


ren ? 


Wenn Sie in der Programmvorbereitung Ihr Problem formuliert 
und in kleinere Teilprobleme zerlegt haben, ist der erste 
Schritt zu einer strukturierten Programmierung bereits ge- 
tan. Hier haben Sie bereits gedanklich festgelegt, welche 
Struktur Ihr späteres Programm einmal haben soll. In der 
Regel wird man später diese Teilprobleme (soweit sinnvoll) 
als Unterprogramme deklarieren. Selbst dann, wenn Sie keine 
Unterprogramme verwenden wollen ist die Aufteilung der Teil- 
probleme in einzelne Blocks (Frogrammmodule) erforderlich. 
Ein strukturiertes Programm ist immer sehr übersichtlich und 
leicht nachvollziehbar. Leider wird nicht überall von dieser 


wirkungsvollen Technik Gebrauch gemacht. 


Oftmals hört man von Verfechtern anderer Frogrammiersprachen 
als BASIC (z.B. PASCAL-Programmierern), daß eine struktu- 
rierte Programmierung in BASIC nicht möglich sei. Sicherlich 
kann man in PASCAL ein Programm wesentlich besser durch- 
strukturieren als in BASIC, was jedoch nicht bedeutet, daß 
ein strukturiertes Programmieren in BASIC unmöglich ist. Die 
BASIC-Sprache bietet uns Statments, mit denen eine einfache 
Strukturierung durchaus möglich ist. Doch hierzu kommen wir 
später noch. Zuerst wollen wir uns mit den Grundlagen dieser 


Technik eingehend befassen. 


Si 


1.9.1 Vorbereitungen 


Die Programmvorbereitungen sind fast die gleichen die wir 
schon in diesem Kapitel unter 1.2 - 1.4 beschrieben haben. 
Hier müssen Sie Ihr Problem jedoch viel feiner und detail- 
lierter formulieren. Zerlegen Sie bitte Ihr Problem in klei- 
ne Teilprobleme. Es empfiehlt sich, jedes dieser Teilproble- 
me einzeln zu bearbeiten. Um Ihnen die Entwicklung eines 
strukturierten Programmes praktisch zu demonstrieren, haben 
wir für Sie noch ein kleines Beispielprogramm vorbereitet. 
An Hand dieses Beispieles wollen wir mit Ihnen Schritt für 


Schritt einen Programmentwurf anfertigen. 


109.2 Die Programmanalyse 


Auch hier wollen wir, wie unter 1.2 beschrieben, unsere Pro- 
grammidee ausarbeiten und festlegen, was das Programm alles 
können soll. Für unser Beispielprogramm haben wir uns fol- 


gende Problemstellung einfallen lassenı 


Der Commodore 64 soll als elektronischer Taschenrechner miß- 
braucht werden. Auf dem Bildschirm wird mit den, im Zeichen- 
satz enthaltenen Graphikzeichen ein einfacher Taschenrechner 
dargestellt. Unser kleiner  Rechenkünstler soll folgende 


Tastatur erhalten: 


I. Die Zahlentasten 0-9 
II. Tasten für die mathem. Operationen +,-,x und : 
III. Die Taste "ei zur Ausführung einer Rechnung 


IV. Die Taste 'C' zum Löschen der letzten Eingabe 


MV. Die Taste 'T' zum Löschen aller Register (ALL CLEAR) 
VI. Die Taste Ε΄ um Zahlen als 10ner-Potenz darstellen zu 
künnen 


VII. Die Taste für den Dezimalpunkt (.) 


VIII. Die Taste 'S' zum Ausschalten des Rechners 


Die jeweilige Taste wird durch Drücken von >>RETURN<< betä- 
tigt. Damit man weiß, welche Taste im Moment aktuell ist, 
soll diese invers dargestellt werden. Dieser inverse Sektor 
muß mit den Cursor-Steuertasten am Computer beeinflußt wer- 


den können. 


Alle Eingaben werden im Display unseres graphischen Taschen- 
rechners angezeigt (max. Länge = 18 Stellen) und können im 
Bereich von -2.973873588E+38 bis 1.70141183E+38 liegen. Mit 
dem Rechner kann immer nur ein Zahlenpaar verarbeitet wer- 
den. Bei einem Eingabefehler wird das Programm mit einer 
entsprechenden Fehlermeldung unterbrochen. Beim Drücken ei- 
ner Operationstaste (+,-,:,x) wird diese an der äußerst lin- 
ken Stelle im Display angezeigt. Hierbei wird die vorher- 
gehende Eingabe gelöscht. Nach Eingabe von ‘=’ wird das Er- 


gebnis errechnet und im Display ausgegeben. 


Als Besonderheit wird die zweite Eingabezahl als Konstante 
gespeichert. Durch widerholtes Betätigen von "e wird der 
angezeigte Ergebniswert mit dieser Konstanten weiterverar- 
beitet. Um die Bedienung unseres Rechners zu erleichtern, 
werden am rechten Bildschirmrand die wichtigsten Tasten er- 


lautert (C,T,S,E). 


Das Programm wird in folgende Teilabschnitte gegliedert: 


A) Rücksetzen aller Variablen 


B) Erzeugen der Bildschirmgraphik 


C) Ausgangsposition invers darstellen (U) 
D) Tatstaturabfrage mit GET 
E) Auswertung der eingegebenen Zeichen (U) 


F) Displayanzeige (U) 

G) Steuerung durch CRSR-Tasten (U) 
Η) Löschen bei Betätigen von 'C' (U) 
I) Löschen bei Betätigen von ‘T’ (U) 


-zerationstaste abspeichern und ausgeben (U) 

κ Rechenoperationen ausführen (U) 

~) Display vollständig löschen (U) 

M) Display löschen (erste Stelle bleibt stehen) (U) 


Alle mit (U) gekennzeichneten Teilprobleme werden als Unter- 
programm deklariert, so daß das Hauptprogramm nur aus den 


Punkten A,B und D besteht. 


la. Die Variablenliste 


Folgende Variablennamen sollen im Programm verwendet werdeni 


X a> Wert der aktuellen Bildschirmspeicheradresse 

DY => Zeichencode der Taste, die gerade betätigt wurde 
I => Zählvariable für Schleifen 

FLAG => Statusflag für Konstantenoperationen 

RES => Ergebnis der jeweiligen Rechenoperation 

Qs => Variable für GET - Abfrage 

21$ => Erste Eingabezahl 

224 => Zweite Eingabezahl 

Sus => Speichervariable für Displayanzeige 

OF£ => Aktuelles Rechenzeichen (+,-,x oder :) 
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1.5.4 Der Programmablauf 


An dieser Stelle wartet sehr viel Arbeit auf Sie. Alle 
festgelegten Teilprobleme müssen hier zu einem logischen 
Ablaufmuster geordnet und einzeln bearbeitet werden. Bei 
der Programmplanung für unser Taschenrechnerprogramm haben 
wir im Abschnitt 1.5.2 die Teilprobleme bereits so geord- 

net, daß sie für diesen Schritt direkt übernommen werden 


können. 


Stellen Sie Ihren Algorhytmus so auf, daß der BASIC-Befehl 
‘GOTO’ nicht verwendet werden muß. Dieser Befehl ist 
einer strukturierten Programmierung nicht gerade förderlich. 
Wenn Sie innerhalb Ihres Programmes zu einem anderen Pro- 
grammteil verzweigen wollen, verwenden Sie bitte nur beding- 
te Verzweigungsbefehle,wie zum Beispiel IF.....THEN (wie Sie 


zweigungsbefehl). 


Unser Programm soll folgendermaßen aufgebaut sein: 


1. Rücksetzen der Variablen mit CLR. 

2. Erzeugen der  Bildschirmgraphik: Es werden nur Graphik- 
zeichen des Standardzeichensatzes verwendet. 

3. Aufruf des Unterprogrammes zur Darstellung der inversen 
Ausgangsposition. Vor dem Aufruf durch GOSUB muß die Va- 
riable X auf ihren Anfangswert gesetzt werden (X=1868). 

4. über GETQ$ wird nun die Tastatur abgefragt. Das Programm 
bleibt hier so lange stehen, bis ein gültiges Zeichen 
eingegeben wird. Wurde eine entsprechende Taste betä- 
tigt, wird das Unterprogramm zur Auswertung der jeweili- 
gen Eingabe aufgerufen. 

5. Aufruf des Auswertemoduls mit GOSUB. 

6. Hier läht sich der GOTO-Befehl nicht umgehen (GOTO 4.), 


da das Programm zur erneuten Tastaturabfrage verzweigen 


muß. 
7. Alle weiteren Unterprogramme werden von dem Programmodul 


'Eingabeüberprüfung' zentral eingeleitet. 


Aufbau der Unterprogramme: 


Im Folgenden wird der Aufbau der einzelnen Unterprogramme 
beschrieben. Wenn eines der beschriebenen Programmodule 
selbst Unterprogramme benutzt, wird dies im Text durch (U) 


kenntlich gemacht. 


1.  Unterprogramm: Auswertung der Eingabe 


Der Variablen DY wird hier der Zeichencode des aktuellen 
Zeichens zugewiesen. Da dieser Wert über PEEK(X) direkt aus 
dem Bildschirmspeicher gelesen wird ist zu beachten, daß die 
Zeichencodes von alphanumerischen Zeichen n ich t dem 
ASCII-Code entsprechen. Die gültigen Zeichencodes fur den 
Bildschirmspeicher entnehmen Sie bitte Ihrem Handbuch (An- 
hang E, Seite 132ff). 


Durch fünf IF-Abfragen wird nun getestet, welche Funktions- 


taste eingegeben wurde: 


a) Betätigung von Taste 'C' (0) 
b) Betätigen der Taste ‘T’ (U) 


c) Rechenzeichen wurde eingegeben (U) 
d) Gleichheitszeichen wurde eingegeben (U) 
e) Betätigen der Taste ‘S’ (Programm wird hier beendet) 


Wurde keines der oben getesteten Zeichen eingegeben, kann 
das  eingegebene Zeichen (Ziffer) auf dem Display ausgegeben 


werden (U). 


Rücksprung ins Hauptprogramm (RETURN) um eine neue Tastatur- 
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abfrage einzuleiten. 


Dieses Programmodul wird immer dann aufgerufen, wenn die 


RETURN-Taste gedrückt wurde. 


Für dieses Unterprogramm werden die Zeilennummern 1000-1500 


vorgesehen. 


2.  Unterprogramm: CRSR UP wurde gedrückt 


Wenn der Inhalt der Variablen X kleiner als 1429 ist, wird 
das Unterprogramm beendet (RETURN). Dieser Wert muß getestet 
werden, weil wir vermeiden wollen, daß der Cursor aus dem 


vorgesehenen Bereich 'ausbricht'. 


Ist X nicht kleiner als 1429, wird die Variable X um 160 
vermindert. Dadurch wird erreicht, daß der Cursor um 4 Zei- 
len nach oben springt. Durch einen POKE-Befehl wird das Zei- 
chen, wo sich der Cursor vorher befand, vom inversen in den 


normalen Zustand gepoked. 
Nun kann das neu angewählte Zeichen (Taste) invers darge- 
stellt werden (U). Danach kann die Routine mit RETURN been- 


det werden. 


Diese Routine wird durch das Unterprogramm ı Welche Taste... 


aufgerufen. 


Hier werden die Zeilen 2000-2500 reserviert. 


LA 


. Unterprogramm: CRSR DOWN wurde gedrückt 


Die Funktion dieses Frogrammoduls ist im Frinzip die gleiche 
wie unter 2. beschrieben. Nur durch zwei Unterschiede heben 


sich beide Programmteile voneinander abı 


I. Es wird zuerst überprüft, ob der Inhalt der Variablen X 
größer als 1864 ist, um im 'JA’-Falle das Unterprogramm 
durch RETURN zu beenden, 


II. Die Variable X wird nun um den Wert 160 erhöht (vier 


Zeilen nach unten). 


Ansonsten weist dieses Unterprogramm den gleichen Algorhyt- 


mus auf wie das Programmodul 2. 


Es werden die Zeilen 3000-3500 vorgesehen. 


4. Unterprogrammı  CRSR RIGHT wurde gedrückt 


Nach dem Drücken von CRSR RIGHT muß zuerst überprüft werden, 
ob der Cursor nicht schon in seiner äußerst rechten Position 
steht. Hierfür wird eine Zàhlschleife benutzt (Variable I), 
die zeilenweise den jeweiligen Grenzwert in der Variablen I 
ablegt (STEP 40). Nun kann in einer IF - Abfrage, die in 
dieser Schleife eigebettet ist, getestet werden, ob X gleich 


I ist. Wenn ‘JA’, wird das Programm mit RETURN abgebrochen. 


Da auf unserem graphischen Taschenrechner die Funktions- 
tasten von den Zifferntasten etwas abgesetzt sind, ist eine 
zweite Testschleife nötig die ermittelt (IF-Abfrage), ob 
der CURSOR 4 oder 5 Zeichen überspringen soll (unser Cursor 


soll ja nicht zwischen den Tasten erscheinen). 


Werden beide Schleifen voll durchlaufen (kein Grenzwert), so 
wird die Variable X um 4 erhöht. Im Anschluß daran kann die 
alte Position des Cursors gelöscht (POKE) und die Neue dar- 
gestellt werden (U). 


Wenn dies alles erfüllt ist, wird das Programmodul wieder 


verlassen (RETURN). 


Der Aufruf dieser Routine erfolgt von dem Unterprogramm | 


'Welche Taste... t. 


Hier werden die Programmzeilen 4000-4500 reserviert. 


S5. Unterprogrammi | CRSR LEFT wurde gedrückt 


Dieses Programm verwendet exakt den selben Algorhytmus wie 
Programmodul 4. Da hier die Brenzwerte etwas anders liegen, 
nfdern sich lediglich die Werte der Variablen und Schlei- 


fen. 


Dieses Programmteil soll in den Zeilen 5000-5500 stehen. 


6. Unterprogramm: Taste ‘C’ wurde gedrückt 


Hier wird die letzte Eingabe gelöscht. Zu diesem Zweck wer- 
den zuerst die Variablen SUS und FLAG rückgesetzt (O oder 
Leerstring). Anschließend wird das Display gelöscht (U). 


Nun kann das Programm per RETURN wieder verlassen werden. 


Aufgerufen wird dieses Programmodul durch die Routine 


"Auswertung der Eingabe. 


Es werden die Zeilennummern 6000-6050 reserviert. 


Ta Unterprogrammı Taste 'T' wurde gedrückt 


Alle Speichervariablen werden zurückgesetzt (SUF,OP$,Zi$, 
Z2$ ,RES,FLAG). Zum Rücksetzen der Stringvariablen SUS wird 
das Unterprogramm 6 aufgerufen. 


Programmende durch RETURN. 


Hier werden die Zeilen 6100-6050 reserviert. 


8. Unterprogrammı Operator wurde gedrückt 


Das eingegebene Rechenzeichen wird in der Variablen OP$ ab- 
gespeichert (CHR#(DY)) und über einen PRINT-Befehl auf dem 
Display an der äußerst linken Stelle ausgegeben. Nun wird 
der Variablen Zi# die bisher eingegebene Zahl als String 
zugewiesen. Danach wird das Display gelöscht (U) und die 


Routine beendet. 


Der Aufruf dieser Routine erfolgt durch das Programmodul 


"Auswertung der Eingabe’. 


Es werden die Zeilen 6200-6250 vorgesehen. 


9,  Unterprogramm: Operation ausführen 


Dieses Unterprogramm wird immer dann aufgerufen, wenn die 
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Gleichheitstaste ('-') gedrückt wurde. 

Zunächst wird der Variablen Z2# der Eingabewert zugewiesen. 
Nun wird das Gleichheitszeichen auf unserem Display (äußerst 
links) ausgegeben. 

In einer Reihe von IF-Abfragen wird ermittelt welche Rechen- 
operation durchgeführt werden soll. Nun kann das Ergebnis 
mit der entsprechenden Formel augerechnet werden. Danach 
wird das Display gelöscht (U) und das Ergebnis wird ausgege- 
ben (U). 


Unterprogrammende durch RETURN. 


vorgesehene Zeilennummernı 6300-6500 


1Ο. Unterprogramm: Display löschen 


Das gesamte Anzeigedisplay wird gelöscht. Hierzu wird eine 
Zählschleife verwandt, in der ein POKE-Befehl die ent- 
sprechenden Bildschirmadressen (1188-1207) mit dem Leerzei- 


chen (32) belegt. 


Der Unterprogrammaufruf erfolgt von den Programmodulen 6 und 


Τι 


Vorgesehene Zeilennummern: 6900-7000 


11.  Unterprogrammi Zeichen invers darstellen 


Wie Sie sicherlich wissen kann man jedes Zeichen invers dar- 


steller. Man muß dem jeweiligen Zeichencode lediglich den 
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Wert 128 hinzuaddieren. Dies realisieren wir durch einen 


POKE - Befehl. 


Der Aufruf erfolgt durch die Frogrammodule 2,3,4,5 und durch 


das Hauptprogramm. 


Vorgesehene Zeilennummerns 10000-10100 


12. Unterprogramm: Welche Taste wurde gedrückt 


Dieses Unterprogramm wird durch das Hauptprogramm nach der 
Tastaturabfrage aufgerufen. Hier wird geprüft ob RETURN oder 
eine Cursorsteuertaste gedrückt wurde. Bei Eingabe einer 
Cursorsteuertaste wird das entsprechende Programmodul 
aufgerufen, während nach Eingabe von RETURN immer das Unter- 


programm 1 selektiert wird, 


Rückkehr zur Tastaturabfrage mittels RETURN. 


Vorgesehene Zeilennummernı 20000-20050 


13. Unterprogramm: Display-Ausgabe 


Der Stringvariablen SUS wird die anzuzeigende Zahl zugewie- 
sen. Danach wird die Variable Z auf ihren Anfangswert ge- 
setzt (1207). Nun wird die Länge von SU$ ermittelt und nöti- 


genfalls korrigiert (max. 18 Zeichen). 


Ein  POKE-Befehl, der in eine Zählschleife eingebunden ist, 
poked die einzelnen Zeichen aus SU# an die jeweiligen Bild- 
schirmstellen. Ist die Schleife durchlaufen, wird Z wiader 


auf 1207 gesetzt bevor die Routine mit RETURN beendet wird. 


Vorgesehene Zeilennummern: 20100 — 20300 


14. Unterprogramm: Nur Operator bleibt stehen 


Hier wird das Display nur Teilweise gelöscht, d. h. die 
linke Stelle für den Operator (+,-,%,:,=) bleibt stehen. 
Der Algorhytmus ist mit dem des Unterprogrammes 10 iden- 


tisch. 


Vorgesehene Zeilennummerni 20500 - 20600 


Wir sind nun am Ende unserer Unterprogrammbeschreibung ange- 
kommen. Durch Angabe der geplanten Zeilennummern haben wir 
bereits die grobe Struktur unseres Programmes festgelegt. 
Sicherlich konnten wir durch die Beschreibung unseres Pro- 
grammbeispieles wichtige Gedankenstützen für Ihre eigene 
Entwicklung geben und hoffen, daß Sie das hier gezeigte für 
eigene Probleme sinnvoll umsetzen können. Vielleicht er- 
scheint Ihnen unsere Vorgehensweise etwas zu ausführlich, 
Sie werden jedoch sehen, da sich diese Methode bei der 


weiteren Programmplanung auszahlt. 


Nachdem der schriftliche Teil der Programmvorbereitung ab- 
geschlossen ist können wir daran gehen, unser zukünftiges 
Programm graphisch darzustellen. Bei der strukturierten 
Programmierung ist es vielleicht sinnvoll, neben der üb- 
lichen Darstellung durch ein Flußdiagramm eine weitere Dar- 


stellungsform zu wählenı Das Struktogramm 


Auf den nächsten Seiten wollen wir uns einmal intensiv mit 


diesem graphischen Hilfsmittel beschäftigen. 
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1.6. Das Struktogramm 


Struktogramme oder auch Nassi-Shneidermann oder kurz NS-Dia- 
gramme genannt, sind sehr nützliche Hilfsmittel bei der Fro- 
grammdarstellung in der strukturierten Programmierung. Ge- 
genüber den Flußdiagrammen nach DIN 66001 hat man hier den 
Vorteil, auf Datenflußlinien und Richtungspfeile verzichten 
zu können. Der Datenfluß wird immer so dargestellt, daß man 
den Frogrammablauf von oben nach unten verfolgen kann. Durch 
die einheitliche, rechteckige Form der angewandten Symbole 
kann man den gesamten Datenflußplan ineinanderschachteln und 
so sehr viel Platz sparen. Im Folgenden wollen wir Ihnen 
die üblichen Symbole vorstellen. Gleichzeit werden wir Ihnen 
die entsprechenden Realisierungen mit Symbolen nach DIN66001 
zeigen, damit Sie eine direkte Vergleichsmöglichkeit haben. 


Hier nun die Zeichen; 


1. Der Verarbeitungsschritt 


Ein einfaches Rechteck stellt einen Verarbeitungsschritt 
dar (genauso wie nach DIN 56001). Innerhalb dieses Rechtek- 
kes kann im Klartext eine entsprechende Anweisung gegeben 
werden. Sollen in einem Block mehrere Anweisungen verarbei- 
tet werden,so kann man diese in einem einzigen Symbol unter- 
bringen. Dies empfiehlt sich jedoch nur dann, wenn die An- 
weisungen von gleicher oder ähnlicher Art sind (z.B. Va- 
riablenzuweisungen). Trennt man in diesem Rechteck die ein- 
zelnen Anweisungen durch einen waagrechten Strich, so ent- 


steht eine neue, zusätzliche Strukturierung. 


Nassi-Shneidermann DIN 66001 


Anweisung Anc &sung 
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Se Der Unterprogrammaufruf 


Durch dieses Symbol (siehe unten) wird kenntlich gemacht, 
daß ein Unterprogramm aufgerufen wird. In diesem Symbol ver- 
merkt man in der Regel nur den Namen des entsprechenden 


Unterprogrammes. Die Struktur des jeweiligen Unterprogrammes 


braucht hier nicht näher beschrieben zu werden, da für jedes 
einzelne Unterprogramm ein eigenes Struktogramm erstellt 


werden muß. 


Nassi-Shneidermann DIN 66001 


3. Die Zweifachverzweigung 


Die Zweifachverzweigung entspricht in der Regel einer IF-Ab- 
frage, bei der ja auch - je nach Bedingung - zwei verschie- 
dene Anweisungen ausgeführt werden. Wichtig ist, daß beide 


Zweige am Ende immer wieder zusammenlaufen. 


Nassi -Shneidermann DIN 66001 


Bedengung 
erfullt 2 
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4. Die Mehrfachverzweıgung 


Mehrfachverzweigungen sind in der Regel dann sinnvoll, wenn 
man in einem Programm eine Verzweigung z. B. vom Inhalt ei- 
ner numerischen Variablen abhängig macht. üblicherweise 
sieht man den äußerst rechten Zweig für ungültige oder un- 
erwartete Variablenwerte vor. Auch hier führen alle Verzwei- 
gungen am unteren Rand des Symbols wieder zusammen. Hier 
kann man vielleicht am besten den eigentlichen Zweck von 
Struktogrammen erkennen: Der Entwickler wird gerwungen, alle 
Frogrammverzweigungen nach der Abarbeitung zu einem Punkt 


(Stamm) zurückzuführen. 


Nassi-Shneidermann DIN 66001 


| qa 
[2 
son. 
P1 P3 


Se Die Schleife 


Es gibt viele Methoden um Schleifen zu realisieren. Im End- 
effekt haben jedoch alle Schleifen zwei Dinge gemeinsam: 
Zum einen die Laufbedingung und zum anderen eine IF-Abfrage 
die testet, ob die Laufbedingung (noch) erfüllt ist. Grund- 


sätzlich kennen wir zwei Arten von Schleifen: 
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A) Schleife mit Vorabtest der Laufbedingung 


Um die Schleife durchlaufen zu können muß zuerst die Schlei- 
fenbedingung erfüllt sein. Es ist als möglich, die Schleife 
komplett zu umgehen oder wie man oft sagt: 'Nullmal' zu 
durchlaufen. Erst wenn die Schleifenbedingung erfüllt ist, 
wird der Schleifenkörper durchlaufen (alle Befehle und An- 
weisungen, die in einer Schleife eingebettet sind, nennt man 


im Fachjargon ‘Schleifenkorper '). 


Nassi-Shneidermann DIN 66001 


Loufbechngung =) 


Schleifen körper 


n. erfüllt erfüllt 


B) Schleife mit Abbruchbedingung 


Hier wird in Jedem Fall in den Schleifenkórper verzweigt. 
Innerhalb des Schleifenkörpers können mehrere Abbruchbe- 
dingungen untergebracht werden, die dazu führen, dan die 
betreffende Schleife an verschiedenen Stellen verlassen wer- 
den kann. Je nach Formulierung der Abbruchbedingungen kann 
es vorkommen, Ο80 keine der Bedingungen zum Abbruch führt. 


In diesem Fall wird die Schleife neu durchlaufen. 


Formulieren Sie Ihre Abbruchbedingungen immer so, daß die 
Schleife nach mehreren Durchläufen verlassen werden kann, 
sonst haben Sie einen 'Deuerl&áufer' im Programm, der un- 


ter Umständen eine umfangreiche Fehlersuche nach sich zieht. 
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Nassi -Shneidermann DIN 66001 


Anweisung 4 


Ja 1:8 
ας 


nein 
Nun haben Sie alle Werkzeuge in der Hand, un für Ihre Fro- 
Qramme ein Struktogramm erstellen zu können. Nach der Er- 
stellung eines Struktogrammes für ein Programm (Unterpro- 
gramm) wird es mit einem Rechteck eingerahmt, an dessen 
oberem Rand der Name des Frogrammes vermerkt wird. Um Ihnen 
das eben beschriebene anschaulich zu demonstrieren, wollen 
wir für unser Beispielprogramm einmal ein Struktogramm er- 
stellen (eine Darstellung des Programmes als Flußdiagramm 


nach DIN 66001 erübrigt sich). 


Die Beschreibung der Algorhytmen für die einzelnen Frogramm- 


teile entnehmen Sie bitte aus Kapitel 1.10.4, 
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Das Hauptprogramm 


Haupt programm 
Intialisierung 


Graphik erzeugen 
X= 7868 
UPGM 11 


Aut Taste warten 


QS - CRSR UP 
Q$=CRSR Down 


QS =CRSR Right 


QI:CRSR Left 


Q$ * RETURN 


Auf Toste warten 
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II. Unterprogramm 1: Auswertung der Eingabe 


OV = Zechencode 


Ende 


Ende Unterprogramm (RETURN) 
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111. Unterprogramm 2: CRSR UP wurde gedrückt 


X =X - 760 


Alte Position loschen 


UPGHM 11 


Ende UPGM (RETURN) 
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IV. 


Unterprogramm 3: CRSR DOWN wurde gedrückt 


X-X + 160 


Alte Position loschen 


uPGM 11 


Encle UPGM CRETURN) 


Unterprogramm 4: CRSR RIGHT wurde gedrückt 


Zurück zum 


Schleitenanfang 


Alte Position loschen 


Abfrage: 
X 


[€ -- 


Ende UPGM (RETURN) 
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VI. Unterprogramm 5: CRSR LEFT wurde gedrückt 


Be ο 


zuruck zum 
Schlerfen anfang 


- h i í 
LIPGM 11 


Ende UPGM (RETURN) 
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VII. Unterprogramm 6: Taste ‘C’ wurde gedriickt 


FLAG =O 


Ende UPGM (RETURN) 


VIII. Unterprogramm 7: Taste ‘T° wurde gedrückt 


Encle UPGM (RETURN) 


X. 


Unterprogramm 8: Operator wurde eingegeben 


OP$ = onge 


Rechenzeichen ausgeben 


uweisen cler Eingabe ιο 74 


Ruckselzen von SUS 


Ende UPGM (RETURN) 
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Unterprogramm 9: Operation ausführen 


UPGM 3 


£25 = SUS 


FLAG =FLAG4 1 


Ausgabe cles Gleihhedtsrechens 


Kä 
Ki 
KN 
lis 
E 


Leen — ἈΝΕ 
ΜΕ l ἩΘΝΝΝΝ 


21$ = Sus 
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XI. 


Unterprogramm 10: Display löschen 


Buleischırmspeicher adresse 
löschen (POKE) 


Beet 


Encle (IPGH (RETURN) 
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XII. Unterprogramm il: Zeichen invers darstellen 


Zeichencode ermitteln unel 
Guf clem Bıldschrm ousgcben: 
POKE X, ΡΕΕΚ (κ) + 128 


Entle UPGM (RETURN) 
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XIII. Unterprogramm 12: Welche Taste wurde gedrückt 


oe 
a 


Encle Grën (RETURN) 
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XIV. Unterprogramm 13: Dısplay-Ausgabe 


(elites Zeichen aus SU$ = 


Su$ um 1 Zeichen verkürzen N 


120" (Startacresse) 
EX Lange σι > 18 4 


Lange SUS = 48 Zeichen 


ic Lange SUG 


05 = Zechencoce oi betr. Zeichens 


XM. Unterprogramm 14: Nur Operator bleibt stehen 


Speicherstelle loschen (POKE) 


Encle LIPGM (RETURN) 
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1.74 Flußdiagramm kontra Struktogramm 


Sie haben jetzt beide Arten der graphischen Darstellung von 
Programmen kennengelernt, Sicherlich gibt es auch unter 
Ihnen, liebe Leser, einige Zweifler, die eine Darstellung 
in Form eines Flußdiagrammes nach DIN 66001 dem Strukto- 
gramm vorziehen. Bestimnt lassen sich alle Probleme auch 
als Flußdiagramm darstellen und übersichtlich gestalten. 
Auch die Analyse des Datenflußes ist auf Grund des linien- 
förmigen Aufbaues solcher Diagramme um einiges bequemer 
als bei einem Struktogramm. Wir können Ihnen jedoch ver- 
sichern, daß nach einer kurzen Gewöhnungsphase auch das 


Lesen eines Struktogrammes sehr einfach ist. 


Im Folgenden wollen wir nocheinmal die programmtechnischen 
Vorzüge und Nachteile der beiden Darstellungsarten aufzei- 


gen: 


Das Flußdiagramm: 


Kennzeichnend für diese Darstellungsart ist der einfache 
linienförmige Aufbau, der den Datenfluß eines Frogrammes 
oder Problemes sehr anschaulich widerspiegelt. Bei kürzeren 
Frogrammen ist es sicherlich sinnvoll, in der Programmer- 
stellung diese Form der graphischen Darstelling zu wählen. 
Sollen jedoch längere und kompliziertere Programme erstellt 
werden ist es auch hier nötig, daß Froblem in kleinere 
Teilprobleme zu zerlegen. Nachteilig wirkt sich hier der 
relativ große Platzbedarf aus, der unter Umständen zu einer 
gewissen Unübersichtlichkeit führen kann. Auch wird man beim 
Entwurf eines Flußdiagrammes nicht unbedingt dazu gezwungen 
ein Programm nach den Regeln der strukturierten Program- 


mierung zu erstellen. 
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Das Struktogrammı 


Der dominierende Vorteil dieser Darstellungsart ist die Tat- 
sache, daß der Ersteller eines Struktogrammes im wahrsten 
Sinne des Wortes dazu gezwungen wird, ‘strukturiert’ zu 
denken. Durch die übersichtliche Blockgraphik ist auch hier 
die Erstellung sehr einfach und oft viel schneller als beim 
FluBdiagramm. Leider wird diese, übrigens sehr platzsparende 
Methode in den Medien oft vernachlässigt. Erst in letzter 


Zeit häufen sich Berichte und Erläuterungen zu diesen Thema. 


In der strukturierten Frogrammierung ist das - wie der Name 
schon sagt - Struktogramm ein unerläßliches Hilfsmittel, um 
Programmstrukturen leicht zu erkennen und darzustellen. Wer 
strukturiert programmiert oder programmieren will, muß sich 
mit dieser Darstellungsart früher oder später intensiv 
beschäftigen. 


1.8. Erstellen des strukturierten BASIC-Listings 


wie an anderer Stelle schon erwähnt wurde, gibt es viele 
Programmierer die behaupten, daß eine strukturierte Pro- 
grammierung in BASIC nicht möglich sei. Wir wollen mit Ihnen 
und Ihrem CBM 64 diesem Kreis beweisen, dah eine 
strukturierte Programmierung sehr wohl mit BASIC zu 
realisieren ist. Wenden wir uns zuerst einmal den Befehlen 
und Statemerts zu, die für eine strukturierte Programmierung 


sehr nützlich sind: 


1. REM 


Durch Einfügen mehrerer Kommentarzeilen ist es möglich, die 
verschiedenen Programmteile optisch voneinander zu trennen. 
Falls es der Speicherplatz erlaubt (das sollte bei den 64 K 
Ihres CBM 54 eigentlich immer der Fall sein !), sollte man 


mit erklarenden REM-Zeilen nicht sparen, um so das Frogramm- 
listing entsprechend zu dokumentieren. Versehen Sie jedes 
Frogrammteil mit mindestens einer Kommentarzeile die darüber 
Aufschluß gibt, was das jeweilige Frogrammodul eigentlich 


macht. 


2. GOSUB bzw. ON GOSUB 


Verwenden Sie der Ubersichtlichkeit halber so viele Unter- 
programme wie irgend möglich. Aber nicht nur übersichtlich- 
keit sondern auch Anderungsfreundlichkeit wird durch eine 
gute Unterprogrammtechnik gefördert, da man das betreffende 
Frogrammteil leicht und schnell auffinden und ändern kann. 
Vermeiden Sie nach Möglichkeit den BASIC-Befehl GOTO. GOTO 
ruft einen unbedingten Frogrammsprung hervor, der in einem 
strukturierten Programm nichts zu suchen hat. Versuchen Sie 
eine Verzweigung immer an eine Bedingung zu knüpfen, da so 
genau ersichtlich ist, warum der Frogrammfluß verzweigt. 
Sicherlich lässt sich der eine oder andere GOTO-Befehl nicht 
immer vermeiden, sollte aber erst als letzte Konsequenz be- 


nutzt werden. 


Auf den folgenden Seiten haben wir unser Beispielprogramm 
als Listing abgedruckt. Wir hoffen, daß Sie alle Ihre Pro- 
gramme demnächst in dieser strukturierten Form entwickeln 


und auflisten werden. 


322» UND ES GEHT DOCH IN BASIC «««« 
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REM 
REM 
REM 
REM 
REM 
REM 
REM 


JE AE TE TE TE JEJE CIE ME IE C JE RE 
TASCHENRECHNER 
FUER 
CBM 64 
*4 COPYRIGHT (C) BY 
*43 DATA BECKER GMBH 


3t 3€ 3€ 3€ 3t 36 3€ 3€ 9€ 3€ 3€ 3€ 3€ 9€ JE 3E IE JE 2702 20. 


*% tt 


+ KA: 


κκ 


“No 0 P» UNGI 


Ὁ 00 0-0 M 
o0 On 0 a ο 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 


REM * VARIABLEN RUECKSETZEN 
CLR 
REM 
REM 
REM 
REM 
REM 
REM * ERZEUGEN DER GRAFHIK 
PRINT" 3" 


PRINT'"NNHNSBBII  — ee 


FOR 1=1T020 
PRINT" BB I 
NEXTI 
PRINT'"IBIL 


PRINT" SBAB ,—-——————————--——— —.." 


PRINT "SBI | 


PRINTER — —- ————-———-—— Ä 


PRINT ' | bannum med " 


PRINT" zisisisinininIe] BB .—. 
PRINT'IBBII7 i i8! 191 
PRINT" ΜΕΡΙ — 
PRINT'FBBBI —. .—. 
PRINT"IBBII4 | (S| 
PRINT'"IBBI —' 
PRINT" ERBBI —. 
PRINT" ΕΙ Ι 1 | 
PRINT 'IBBI — 
PRINT" rBBBI -—. 
PRINT'IBBIIO | 
PRINT" ΗΡΙ — 


IC | 


16 | IX | 


02! 131 l+ | 


D ` D i 
mn -— 


fe | 


PRINT" Tea"; TAB (26); "ITE 2 ALL CLEAR" 


READY, 
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340 
350 
360 
370 
395 
396 
397 
398 
399 
400 
410 
420 
495 
496 
497 
498 
499 
500 


PRINTTAB (24), "CM = CLEAR" 
PRINTTAB(260;" 4B = EXPONENT" 
PRINTTAB (26), "68 = ENDE" 

PRINT" SINDE DATA BECKER CBM δ 5 
REM 

REM 

REM 

REM * BILDSCHIRMADRESSE IN X 

REM * ABSPEICHERN UND ZEICHEN 
REM * INVERS DARSTELLEN. 

X=1868 

BOSUB 10000 ı REM ZEICHEN INVERS 
REM 

REM 

REM 

REM 

REM 

REM # TASTATURABFRAGE 


ΣΕ ANDOF< »CHR$ 


510 ΘΕΤΟΦΙΙΕΩΦς2Σ' I ANDOS< >" MN" ANDOF« >" ΜΗ ANDOS< 
(13) THENS1O 

520 GOSUB 20000 : REM WELCHE TASTE ? 

530 GOTO $10 

995 REM 

996 REM 

997 REM 

998 REM 

999 REM 

1000 REM * AUSWERTUNG DER EINGABE 

1010 DY*(PEEK(X)-128) 1REM ZEICHENCODE NACH DY 
1020 IF DY=3 THEN GOSUB 6000: RETURN 

1030 IF DY=20THEN GOSUB 61001RETURN 

1040 IF DY=240RDY=5BORDY=4350RDY=45THENGOSUB&SZ0O0: RETURN 
1050 IF DY*61THENGOSUB&3001:RETURN 

1060 IF DY*19THENFRINT'2"1 END 

1070 GOSUB 20100 ı REM DISPLAY-AUSGABE 

1080 RETURN 

1995 REM 

1996 REM 

READY. 
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1997 REM 

1998 REM 

1999 REM 

2000 REM κ CRSR UP WURDE GEDRUECKT 

2010 IFX«1429THENRETURN 

2020 XmX-160:t POKEX+160,PEEK (X+160) -128: BOSUB10000: RETURN 
2995 REM 

2996 REM 

2997 REM 

2998 REM 

299797 REM 

3000 REM κ CRSR DOWN WURDE GEDRUECKT 

$010 IFX>1864THENRETURN 

3020 XeX-1601:1 POKEX-160,PEEK (X-160) -128: GOSUB100001: RETURN 
3995 REM 

3996 REM 

3997 REM 

3998 REM 

3999 REM 

4000 REM κ CRSR RIGHT WURDE GEDRUECKT 

4010 FORI=1405T01885STEP40 

4020 IFX=ITHENRETURN 

4030 NEXTI 

4040 FORI=13976T018765TEF40 

4050 IFX=ITHENXeX+5Sı POKEX—-5, PEEK (X-5) -1268: GOSUB10000: RETURN 
4060 NEXTI 

4070 KeX+41POKEX-4, PEEK (X-4) -128: GOSUB10COO: RETURN 

4995 REM 

4996 REM 

4797 REM 

4998 REM 

4999 REM 

SOOO REM κ CRSR LEFT WURDE GEDRUECKT 

5010 FORI=1388TO1868STEP40 

5029 IFX=ITHENRETURN 

5050 NEXTI 

3040 FORT #1401 TO16B1STEP4O 

SOSO IFXZITHENXzX-S:P"ÜOrcXTS,FEEIZCX*5) 128: GOSUB10000: RETURN 


READY. 
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5060 
5070 
5995 
5996 
5997 
5998 
3999 
6000 
6010 
6020 
6095 
6096 
6097 
6098 
6099 
6100 
6110 
6195 
6196 
6197 
6198 
6199 
6200 
6210 
6220 
6230 
6240 
6295 
6296 
6297 
6298 
6299 
6500 
6510 
6320 
6330 
6340 


NEXTI 

X=X-41 POKEX+4, PEEK (X+4) -128: GOSUB10000: RETURN 
REM 

REM 

REM 

REM 

REM 

REM * TASTE C WURDE GEDRUECKT 
SUS="":FLAG#0 

GOSUB 6900 :RETURN 

REM 

REM 

REM 

REM 

REM 

REM * TASTE T WURDE GEDRUECKT 
21$2'""122$-" 1 RES=0; FLAG=0: GOSUB6000 (RETURN 
REM 

REM 

REM 

REM 

REM 

REM κ OPERATOR WURDE GEDRUECKT 
OP$=CHR$ (DY): IFASC(OP$) »24THENOP$2"X" 
PRINT" szirisieipibiiii'"; ΟΡ 
21$28U$:8U$-'" ": GOSUB20500 

RETURN 

REM 

REM 

REM 

REM 

REM 

REM * OPERATION AUSFUEHREN 

IFFLAG< »OTHENZ1$*SU£$: GOTO6330 
Z2$=SU$: FLAG=FLAG+1 

PRINT" Selm; "e" 

IFOP$="X" THENRES=VAL (Z1#) #VAL (Z2#) : GOSUB20500 


(RES) : GOSUB20100: RETURN 


READY. 
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ı SUS=STRF 


6350 IFOP$="} "THENRES=VAL (Z1#) /VAL (Ζ28) 1 GOSUB20500 1SUS=STRS 
(RES) : GOSUB20 100: RETURN 

6360 IFOP$="+"THENRES=VAL (714) «VAL (22$) 3GOSUB20500 ı SUF=STR$ 
ARES) 1 GOSUB201001 RETURN 

6370 IFOP$="-"THENRES=VAL (21$) -VAL (724) 1GOSUB20500 :SU#=STR# 
(RES) : GOSUB20 100: RETURN 

6380 Z1$2"":22$-'':95U£$2""1 GOSUB20500: GOSUB20100: RETURN 
6895 REM 

6896 REM 

6897 REM 

6898 REM 

6899 REM 

6900 REM κ DISPLAY LOESCHEN 

6910 FORI=1207T01188STEP-1 

6920 POKEI,32 

6930 NEXTI 

6940 RETURN 

9995 REM 

9996 REM 

9997 REM 

9998 REM 

9999 REM 

10000 REM * ZEICHEN INVERS DARSTELLEN 

10010 POKEX, PEEK (xX) +128 

10020 RETURN 

19995 REM 

19996 REM 

19997 REM 

19998 REM 

19999 REM 

20000 REM * WELCHE TASTE WURDE GEDRUECKT 

20010 IF Q#=CHR$ (13) THENGOSUB10001 RETURN 

20020 IF Q#="")" THENGOSUB2000: RETURN 

20030 IF Q$=" EM" THENGOSUB3000: RETURN 

20040 IF Dës RI THENGOSUB4000: RETURN 

20050 IF Q$-'"H"THENGOSUBSOO0: RETURN 

20095 REM 

20096 REM 


READY. 
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20097 
20098 
20099 
20100 
20110 


REM 

REM 

REM 

REM κ DISPLAY-AUSGABE 

SUS=65US+CHRS (DY): IFRKIGHT$ (SU#, 1 )="=e" THENSUS-LEFT$(S8U$, 


LEN (SU) —1) 


20120 
29130 
20140 
20150 
29160 
29170 
29180 
20120 
20200 
20210 
20495 
20496 
20497 
20458 
20499 
20500 
20910 
20520 
20550 


221207 

IFLEN (SU$) »18THENSUSERIGHT$ (SU#, 18) 
FOR I=LEN (SU$) TO1STEP-1 

DS=ASC (MID#(SU#,I,1)) 

IFMID$ (SU$, I ,1)="E"THENDSeS 
POKEZ,DS 

Z=Z-1 

NEXTI 

221207 

RETURN 

REM 

REM 

REM 

REM 

REM 

REM * NUR OPERATOR BLEIBT STEHEN 
FORIs1207T01189STEP-1 

POKEI,32 

NEXTI 

RETURN 
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2 EIN PROGRAMM BESTEHT AUS DREI DINGEN 


Sollte die überschrift zu diesem Teil des Buches in Ihnen 
Assoziationen zu einer bestimmten Tabakwerbung wecken, gemäß 
derer ein Mann drei Dinge brauche, nämlich Feuer, Ffeife und 
See aes . so haben wir das keineswegs beabsichtigt. 

Jedoch während das Obengenannte entbehrlich ist, sind es die 
Dinge, von denen hier die Rede sein soll, fur ein 
vernünftiges Frogramm keineswegs, sondern sind notwendiger 
Bestandteil desselben. 

In einem Frogramm, sofern es nicht aus lauter RER "e oder der 
Zeile 

10 goto 10 


besteht, stellen sich immer die Fragen: 


WAS TUN? WOMIT? WOHIN? 


Selbst die eınfache Zeile 
10 print "hallo" 
rechnet mit diesen drei Kriterien. WAS  TUN?... namlich 


Drucken, WOMIT?... das in der Zeile selbst enthaltene 


Literal ‘hallo’, WOHIN?.... auf den Bildschirm. 
Die Frage WOMIT beantwortet sich der ernsthafte 
Programmierer natürlich nicht mit im Programm selbst 


untergebrachten Literalen, soweit es sich nicht um fur 
Formeln benötigte konstanten handelt, sondern diese Daten 
kommen in aller Regel, zumindest bei der Ersterfassung, von 
der Tastatur. 


Folgende drei Dinge sind also Gegenstand der Betrachtungen: 


WOMIT? Dateneingabe 
WAS TUN? Datenverarbeitung 
WOHIN? Datenausgabe 


Ohne dabei näher auf anwendungsspezifische Froblematiken 
einzugehen, wollen wir Ihnen anhand dieser drei Oberbegrifíe 
grundsätzliche Methoden vorstellen, die Sie in die Lage 


versetzen sollen, leichter Programme zu erstellen, die 


professionellen Anforderungen genügen. Darunter verstehen 
wir Programme, die nicht nur der Ersteller bedienen kann, 
sondern auch (und gerade) der Anwender. 

Zu allen Punkten bieten wir Ihnen auch Subroutinen an, deren 
Zeilennumerierung und  Variablenwahl so erfolgt, daß Sie 
diese alle miteinander in einem Programm unterbringen 
können. 

Soweit es möglich ist, sind alle Routinen parametrisiert, 
d.h. daß Sie diese durch einfache Veränderung von 
Variableninhalten den Erfordernissen Ihres Frogrammes 
entsprechend anpassen können. 

Durch das gesamte Kapitel 2 wird Sie, um den Stoff zu 
veranschaulichen, als Beispiel eine universelle Adressdatei 
mit dynamischer Länge der Einträge und dynamischer 
Freispeicherverwaltung begleiten. 

Alles, was Sie dazu brauchen, ist am Ende nur noch die 
sinnvolle Aneinanderreihung der beschriebenen Unterprogramme 
mit entsprechender Parameterübergabe. 


Ob Sie dann damit Adressen oder Ihre Schallplattensammlung 


sehen Sie selbst. 


2.1  DATENEINGABE 


Was man auch darunter verstehen kann, soll Ihnen ein 
(wahres) Beispiel aus der täglichen Praxis des Autors als 
Leiter der DATA BECKER Entwicklungsabteilung zeigen: 

Zur Klarung bestimmter Probleme suchte uns ein Kunde auf. 
Auf daß ihm rasch geholfen werde, hatte er gleich seine 
Programme mitgebracht. Hierbei handelte es sich um die 
statistische Auswertung bestimmter Daten. 

Wir staunten nicht schlecht, als sich die gut fünfzehn 
Frogramme von der Logik her als identisch herausstellten. 
Was sie unterschied, waren einzig und allein die Argumente 
zu den Berechnungen. Diese waren samt und sonders als 
Literale in den Frogrammen selbst verankert. 

Ja, werden Die sagen, er hätte doch nur den Frogrammrumpf 


mit ein paar einfachen Inputs versehen brauchen und die 
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Ergebnisse zwecks beliebig häufigem Ausdruck auf Diskette 
auslagern brauchen, und außerdem ....... 
Genau darum geht es in diesem Buch und wir beginnen mit der 


Dateneingabe über Tastatur. 


2.1.1 DIE BILDSCHIRMMASKE 


Unter einer Maske soll in diesem Zusammenhang ein fester 
Bildschirmaufbau verstanden werden oder, wenn Sie so wollen, 
auch eine Schablone, die mit fixen Feldern versehen ist, die 
(und nur die) ausgefullt werden können wie bei einem 
Formular 

Eine gute Bildschirmmaske ist die Vısitenkarte eines 
Programmierers, da dies gewöhnlich das Einzige ist, was der 


Anwender vom Programm zu sehen bekommt. 


Eine Maske dient dazu, eine fehlerfreie Eingabe zu 
unterstutzen. Der Benutzer soll jederzeit genau wissen, 
welche Aktion von Ihm verlangt wird. 

Deshalb ist es äußerst wichtig und zweckmäßig, daß eine 
Maske fur einen bstimmten Programmzyklus immer die gleiche 


ist, damit. jede Unsicherheit möglichst ausgeschlossen wird. 


Die Maske setzt sich am besten aus drei Hauptfeldern 


zusammen, nämlich: 


1. Einer Kopfzeile, in der angezeigt wird, ın welchem 
Programm (teil) man sıch gerade befindet und 
gegebenenfalls auch der Name der augenblicklich 


bearbeiteten Datei steht. 


2. Einem Eingabefeld, welches in mehrere Einzelfelder, je 
nach logischem Zusammenhang, unterteilt sein kann und aus 
welchen der Cursor nur nach formal richtiger Eingabe 


fortbewegt werden kann. 


3. Einer Fußzeile, aus der ersichtlich ist, auf welche 


Weise das Programmteil verlassen werden kann, wenn nicht 


die Art der Eingabe die programmtechnische Entscheidung 
ermöglicht, d.h. die Eingabe nicht einmalig ist wie z.B. 


das Tagesdatum. 


Befassen wir uns zunächst mit einem grundsätzlichen Thema, 
nämlich dem farblichen Aufbau der Maske. 

Der Commodore &4 bietet hier reizvolle Möglichkeiten des 
Maskenaufbaues. Bei Verwendung eines Farbfernsehers bieten 
sich natürlich die verschiedenen Farben zur optischen 
Aufteilung des Bildschirmes an. Jedoch ist hier Vorsicht 
geboten, daß man nicht des buten zuviel tut. Es sollten auf 
jeden Fall die Regeln der Ergonomie beachtet werden, damit 
das Auge nicht irritiert oder durch  ungeschickte Farbwanl 
ermudet wird. Eine Bildschirmmaske ist kein Kunstwerk, mit 
dem der Frogrammierer Eindruck schindet, sondern 
Arbeitsmittel fur den spateren Anwender, mit dem dieser 
unter Umständen tagtaglich umgehen muß. Denken Sıe bitte 
unbedingt daran bei der farblichen Gestaltung Ihrer Maske. 
Effekthascherei und der kräftige Griff in den Farbtopf 


erweisen sich meist als Pumerang. 


Aber auch bei Verwendung eines grün/schwarz-Monitors rufen 


die Farben unterschiedliche Helligkeitseindrucke hervor. 


Hier haben Sie sogar die Möglichkeit, es den teuren 
Terminals nachzutun, die Ja auch verschiedene 
Helligkeitsstufen haben. Wir haben es ausprobiert und 


herausgefunden, daß der optimale Eindruck bei einem Monitor 
entsteht, wenn Hintergrund und Rahmen schwarz gesetzt 
werden, feststehende Informationen (die Maske) in grau 2 und 
die tatsächlichen Eingaben in weiß. Damit kann man die bei 
monochromen Rechnern weit verbreitete Unsitte umgehen, die 
unveränderlichen Bildteile in reverser Darstellung (dunkle 
Schrift auf hellem Grund) anzuzeigen, was erstens schlechter 
lesbar ist und zweitens die Augen sehr ermudet, da der 
Kontrast zur normalen Schrift sehr groß ist. Reverse, und 
damit auch auffallig, sollten nur Fehlerzustande 


signalisiert werden, z.B. der Fehlerkanal der Floppy. 
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Viele von Ihnen werden jetzt vielleicht sagen, das könne 
doch wohl nicht stimmen. Gewiß, es gibt vıele sogenannte 
professioneile Frogramme, die vor REVERSE-Darstellungen nur 
so strotzen. Betrachten wir aber einmal Frogramme, die 


typischerweise die Augen des Benutzers stark beanspruchen, 


nämlich Textverarbeitungsprogr amme. Hier wer den Sıe 
REVERSE-Darstellungen im Normalbetrieb so gut wie nie 
finden. 


Yon Ergonomen immer mehr gefordert wird aber die komplette 

REVERSE Darstellung des Bildschirmes, d.h. grundsatzlich 

sollen der gesamte Hintergrund hell und die Schrift dunkel 
sein. Dazu ist zu sagen, daß hierzu besondere Monitore 
erforderlich sind, die tatsächlich die Brillanz einer 
Schreibmaschinenseite erreichen. Der Effekt ist ahnlich, wie 
er Ihnen vielleicht von Perlleinwanden für Projektoren 
bekannt ist. Ein normales Fernsehgerät kann jedoch diese 


Auflösung und Reinheit des Bildes nie erreichen. 


Wir wollen uns auf das beim C64 Machbare beschränken. Hier 
unsere Farbempfehlung und die dazugehörenden Befehle, die am 
Programmanfang stehen sollten: 

poke $5328U,0:rem rand schwarz 

poke 53281,9:rem hintergrund schwarz 

printchrs (152) 3:rem einleiten schrift grau 2 
printchré(S)::rem einleiten schrift weiss 

wobeı die weisse Schrift zur Anzeige der Aktivitäten dienen 
soll, und grau 2 für konstante Teile wie die Maske, was wir 
ım nachsten Abschnitt mit einem Maskengener ator 
konkretisiert haben. 

Lasse Sie uns noch einmal zusammenfassen: Wichtig ist nicht, 
daß ein unbedarfter Beobachter ob der Farbenpracht auf dem 
Bildschirm in Verzückung gerät, sondern vielmehr, daß der 


spätere Benutzer damit möglichst gut arbeiten kann. 
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2.1.2 EINGABEFELDER 


Bei dem von uns vorgeschlagenen Maskenaufbau und der 
gegebenen Bildschirmgröße von 25 Zeilen zu je 48 Zeichen 
ergeben sich eine Kopfzeile, 23 Eingabezeilen und eine 
Fußzeile. 

Um nun zu unserem Beispiel der Adressdatei zu kommen, 
besteht wohl die erste Aufgabe darin, die Stammdaten 


einzugeben, d.h. Name, Anschrift usw. 


Die Kopfzeile könnte dann enthalten: 


STAMMDATENERFASSUNG DATEINAME 


Entsprechend muß auch das Feld aufgebaut sein, und zwar, und 
das gilt für jede Art von Eingabe, in der logischen 
Reihenfolge, das heißt in der Form, in der der Benutzer die 
Daten gewöhnlich auch vorliegen hat. 


Bei uns hieße das: 


Anrede 

Name 

Straße 
Hausnummer 
Postleitzahl 
Ort 


Bemerkung i 


Bemerkung n 


Die Fußzeile könnte lauten: 


EINGABEENDE: Funktionstaste F1 im Feld 'Anrede' 


Wir haben zur Meldung des Eingabeendes an das Programm hier 
eine Funktionstaste vorgesehen. COMMODORE  64-Besitzer sind 
in der glücklichen Lage, über vier (ohne SHIFT) dieser in 
der professionellen EDV unentbehrlichen Funktionstasten 


verfügen zu können. Die Wichtigkeit von Funktionstasten für 
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die RBedienerfuhrung in einer Eingabemaske ist leicht 

einzusehen: 

Drei Dinge (schon wieder drei) werden regelmäßig in jeder 

Eingabemaske auftauchen, nämlich die Abfragen: 

1. ALLE DATEN RICHTIG - SOLL ABGESFEICHERT WERDEN? 

2. EINGABEENDE (oft gleichbedeutend mit PROGRAMMENDE für 
diesen Frogrammteil und in der Regel Rückkehr ins 
Hauptmenü). 

3. die aus Komfortgründen stets anzubietende Möglichkeit, 


Jeweils ein Eingabefeld zurückzuspringen. 


Alle diese Abfragen sollten grundsätzlich nicht die Eingabe 
von mehr oder weniger originellen Dingen erfordern (z.B. # 
für Programmende), sondern lediglich das Drücken einer 
Funktionstaste. Dabei sollte die der einzelnen Funktion 
zugeteilte Taste nicht nur für alle Programmteile, sondern 
fur möglıchst alle Ihre Programme gleich sein. Dies trägt 
ebenso zur bedienerfreundlichen Gestaltung eines Programmes 
bei, wie ein einheitlicher Maskenaufbau. 

Eine entsprechende Anweisung sähe (unter Zugrundelegung der 
Inputroutine aus 2.1.4 sahe für z.B. das Programmende so 
aus: 


100f4—-c1:gosub49000:1i1f f#=chr$(133) then end 


Doch zunächst zurück zum Maskenaufbau: 

Mit Hilfe der am Ende dieses Abschnitts gelisteten und 
kommentierten Subroutine macht Ihnen der Maskenaufbau 
sicherlich keine Mühe. 


Vor dem Aufruf sind folgende Variable zu versorgen: 


f* enthält die gewünschte Feldnummer und kann Werte von @ 
bis 24 annehmen, wobei B die Kopfzeile darstellt und 24 
die Fußzeile. 

f$ soll den festen Bestandteil des Feldes enthalten, also 
z.B. "Anrede. 

f1% gibt die Feldlange an, worunter die Länge des 
tatsächlichen Eingabeteiles verstanden werden soll. 
MAXIMUM: lentf$)+f1% darf 37 nicht überschreiten. {12 


darf auch B sein, was bedeutet, daß dieses Feld nur der 
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Anzeige dient und keine Eingabe verlangt wird. 

{57 bestimmt die Feldart: 
=ð: Eingabe alphanumerisch, Länge darf kleiner als TL 
sein 
=1: Eingabe alphanumerisch, Länge muß ΕΙ entsprechen 
—2: Eingabe numerisch, Länge darf kleiner als {12 sein 


=3: Eingabe numerisch, Länge muß f1% entsprechen 


Beispiel: 


10 f/=1:#1%=5: ff%=9: f$="Anrede":gosub 51200 


Damit sind schon zwei wesentliche Dinge erledigt, nämlich 
der Bildaufbau und, was allerdings erst bei der Dateneingabe 
zum Tragen kommt, der Feldtyp. 

Das nachste ware eine evtl. übergabe vcn Defaultwerten, d.h. 
es werden in die Eingabefelder bereits Werte eingetragen, 
die wahrscheinlich ohnehin eingegeben würden. Der Regelfall 
ist eine solche  Vorbesetzung bei der Anderung von 
Stammdaten, die vielleicht notwendig werden, weil sich die 
Anschrift oder die Telefonnummer geändert hat, der ubrige 
Eintrag aber erhalten bleiben soll. 

In dem Falle werden die Einqabefeider einfach mit den von 
der Diskette gelesenen Daten gefüllt. Die nicht zu andernden 
Felder werden vom Benutzer einfach mit der Taste "RETUFN’ 
quittiert. 

Auch kann der Fall auftreten, daß Sie es bei Ihren Adressen 
größtenteils mit Damen zu tun haben. Sie könnten dann das 
Feld 'Anrede' schon mit ‘Frau’ vorbesetzen. Hei der ersten 
Eingabe in dieses Feld (falls es sich doch um einen Herrn 
handelt) wırd die Vorbesetzung gelöscht. 


Folgende Farameter sind zu übergeben: 


f* Feldnummer 
f$ die Daten, mit denen Sie gerne das Eingabefeld 
vorbesetzt hätten. 


Achtung: f$ wird auf die Feldlänge vegrenzt. 


Beispiel: 


28 #/=1:++="Frau":gosub 350000 
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Die Entscheidung, wann eine bestimmte Maske zu verlassen 
ist, kann sowohl vom Anwender als auch vom Programm 
getroffen werden. 

Das Programm bricht die Maske regelmäßig dann ab, wenn die 
Eingabe von ihrer Natur her einmalig ist, z.B. Auswahl eines 
neuen Programmes aus einem Menü. 

Bei repetierenden Eingaben, eben unserer Stammdaten- 
erfassung, muß der Benutzer die Maske beenden. Das geschieht 
in solchen Fallen am besten durch Eingabe einer 
Funktionstaste. 

Um dem Anwender diese Möglichkeit zu signalisieren, dient 


die Fußzeile. 


Beispiel: 
15 #%=24:f$="Programmende: Fi im Feld Anrede eingeben":gosub 
31898 


Zu dem nachfolgenden  Programmlisting noch eine kleine 
Anmer kuna: 

Ab der Zeile 351900 ist noch eine kleine Routine 
untergebracht, die es Ihnen ermöglicht, einzelne oder alle 
Eingabefelder zu Jöschen. Kopf- und Fußzeile bleiben davon 
urberührt. Des globale Löschen ist nach dem Ausfüllen und 
abspeichern einer kompletten Maske vor einer erneuten 
Eingabe zweckmäßig. Das gezielte Löschen könnte erforderlich 
werden, wenn Sie bei einer der Eingabe tolgenden 
Plausibilitätskontrolle feststellen, daß etwas nicht stimmt, 
z.B. ein Datum. 

Zum Löschen ist nur die Feldnummer in f% zu übergeben. Ist 
#%=0, werden alle Eingabefelder gelöscht außer Kopf- und 
Fußzeile. Diese können aber im Bedarfsfalle auch 


uberschrieben werden. 
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ΩΟΟΟΟΘΟ rem 

50001 remis defaulteingabe Jd 3900000 €X 
30002 rem 

90020 iffZclorf4*525thenreturn 

90040 poke214,f%:poke211,f%(f%4,2):sys58732 

90060 printchr$(S5)left$(f$,f4(f£*,00); 

90080 f^4(fX,S5)-1:return 

91000 rem 

51001 rem;dxxxx3*3*3*3*44* maskenaufbau 3333 43 3C€ 369€ 
91002 rem 

51885 poke53280,0:poke53281,0 

51010 iff%<Borf%>24thenreturn 

391020 cb$=" x 
9391050 ondfZ%goto51046@ 

91040 dimf%(24,3):df%=1 

91060 iff%=Bthenprintchr$s(19)chr$(152)left$(f$,4B8):return 
91070 if #%< >24thenS1 100 

51888 poke214,24: poke211,@:sysS8732 

51898 printchr$(152) lef t$(f$,39) s3:return 

91100 FALlfA,B)=f1%:fAlf%,1)=ff% 

511204 poke214,f%: poke211,0:sys58732 

51130 printchr$(152) f$; 

91135 ifflZ-UÜthenreturn 

91137 print" "chr$(181); 

91140 f%(f%,2)=peek (211) 

91150 printleft$(cb$,f1l%)chr#(182); 

91160 f7(f%,3)=8 

91188 return 

51500 rem 

91501 remix xxxx3x3x4* feld loeschen ἘΚΕΊ ΕΧ 
51502 rem 

91510 iff%4<sBorf%>24thenreturn 

91520 if fZ%< >O@thenS1460@ 

51548 forli-1to23 

91560 fZ-11:gosub510600 

91580 nextli:return 

91600 poke214,f%:poke211,f74(f%,2):sys58732Z 

91620 printleft#(cb$,f7/(f7,D0)); 

51648 f7%(f%,35)=@B:return 


Die Variablen haben wir Ihnen oben bereits vorgestellt. 
Sie finden im Listing haufig das folgende Kommando: 
sys58732 

Dieser Befehl veranlaßt das Betriebssystem, den Cursor 
tatsächlich an die in den Speicherstellen 211 und 


hinterlegte Fositıon zu bringen. 


auch 


214 


Nun zum Kommentar. Wegen der Durchsichtigkeit des Frogrammes 


tallt dieser recht knapp aus. 


50000- 
90080 Zwecks Ausfüllen eines Eingabefeldes mit 


einem 


Defaultwert wird der Cursor auf die in fZ(f7,2) 


hinterlegte Position des Eingabefeldes gesetzt. 


Defaultwert in ΕΦ wird nun maximal mit der Länge 


Eingabefeldes dorthin geschrieben. Zum Zeichen, 


Der 
des 


daß 


dieses Feld nun belegt ist, wird ein entsprechender 


Merker in #%(f%,3 gesetzt. Dieser wird in 
Input-Routine (siehe dort) abgefragt. 
51880- 


der 


9511860 Wo das Eingabefeld beginnt, wird durch die Fosition 


des Cursor nach Printen des Maskentextes und 
anschließendem Setzen der linken Feldbegrenzung 
(chr$(181)) aus der Speicherstelle 211 ermittelt und 


in f%(f7,2) hinterlegt. 


In der Länge des Eingabefeldes werden nun Blanks 


geschrieben, daran anschließend die rechte 


Feldbegrenzung. Der Merker für die Feldbesetzung 
Ξ0 gesetzt. 
51500- 


51648 Das Löschen des oder der Felder geschieht dadurch, 


wird 


daß 


aus f%(f%,x) die Information über das Feld entnommen 


wird, der Cursor auf den Feldanfang gesetzt und in der 


Länge des Feldes dieses mit Leerzeichen überschrieben 


wird. 


Das war schon alles. Wie Sie bequem die Feldinhalte in 


Ihr 


Programm übernehmen können, zeigt Ihnen der nächste 
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Abschnitt. 


2.1.3  CURSORFOSITIONIERUNG 

Unabhängig von der im Abschnitt 2.1.4 zu besprechenden 
Eingabemethode stellt sich grundsätzlich die Frage, wie dem 
Benutzer am augenfälligsten klargemacht wird, was er tun 
soll. 

Dazu zählt neben einem logischen Aufbau der Maske auch die 
Hinfuhrung der Augen auf die Stelle, an der die Eingabe 
erscheinen wird. Dem Empfinden nach wırd, wie beim Lesen, 
der Aufbau von oben nach unten und von links nach rechts 
erwartet. 

Diesem Umstand sollten Sıe Rechnung tragen und die Eingabe 
nicht durch wıldes Springen von einem Feld über das nachste 
und wieder zurück erschweren. 

In unserer Routine werden die Eingabefelder sowohl am Anfang 
als auch am Ende durch Balken markiert. Dadurch ergibt sıch 
rein optisch schon die Länge, sodaß niemand auf den Gedanken 
kommen könnte, in dem Feld fur die Anrede den Straßennamen 
unterzubringen. 

Zur endgültigen Eingabeaufforderung erscheint in dem zu 
behandelnden Feld der blinkende Cursor 

Jetzt beginnt der schwierigste Teil der Unternehmung. Mit 
Rücksicht auf die jeweils verlangten Daten, nicht zuletzt im 
Hinblick auf den dafür reservierten Platz auf der Diskette, 
darf es einfach nicht vorkommen, daß mehr Daten eingegeben 
werden, als durch die Feldmarkierung vorgegeben 1st. 
Daruberhinaus darf der Cursor das Feld nach keiner Richtung 
verlassen kónnen, was die ganze Eingabe durcheinanderbringen 
wurde. 

Also mui3 die Cursorbewegung laufend überwacht werden. Leider 
haben wir beim C64 nicht die Moglichkeit einer 
Fensterdefinition, wie sie vom CBM8@32 her bekannt ist. Die 
Eingabestatements INPUT und GET bieten hier auch keinen 
Ansatzpunkt. 

Es bleibt also nichts anderes übrig, als nach Jedem 
Tastendruck die Cursorpositon sowohl horızontal mit 


Feldanfang und -ende zu vergleichen, als auch vertikal ein 
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evti. Verlasser der Zeile zu prüfen. 

Dazu gibt es in der Zeropage (das ist der Adressraum 0-255, 
in dem das Betriebssystem Ablaufparameter hinterlegt) zwei 
Speicherstellen, die die augenblickliche Cursorposition 
wiedergeben. 

Das 1st zum einen die Adresse 211, in der die Cursorspalte, 
also die Fosition des Cursor innerhalb einer Zeile 
nachzusehen ist, und zum anderen die Adresse 214, deren 
Inhalt die aktuelle Cursorzeile reflektiert. 

Diese laufende überwachung ist natürlich nur bei Eingaben 
mittels GET möglich, da nur hierbei das Frogramm nach jedem 
Tastendruck wieder die Kontrolle erhält, wie die 


INPUT-Routine im Abschnitt Z.1.7 zeigt. 


Eine gänzlich andere Situatıon entsteht, wenn dem Benutzer 
die Wahl gelassen werden soll, welches Feld er ausfüllen 
darf. 

In dieser Form tritt es fast regelmäßig bei einer 
menümäßigen Programm- oder Aktionsauswahl auf. 

In solchen Fallen hat sich bisher immer die Ziffern- oder 
Kennbuchstabenauswahl bewahrt. Auch hierfür ist unser 
Maskengenerator gerüstet. Im vorigen Abschnitt mochte es 
wohl einigen unverständlich erscheinen, wozu man wohl ein 
Feld der Lange B definieren sollte. Hier bekommt es einen 
Sinn. 

Angenommen, wir wollen drei Programme zur Auswahl stellen, 
wovon eines mittels Kennziffer zu bestimmen ist. Die Maske 


kann dann folgendermafien aufgebaut werden: 


10 £2=0: £$="Hauptmenue":gosub 51008 

28 f4-2:f1Z-1:ffA-3:f$-"Stamm anlegen = 1":gosub 51000 
SU +%=4:f1%=B:f$="Stamm ändern = 2":gosub 51000 

40 £7%=6:f%="Nach Namen suchen = 3":gosub 51808 

50 f74-24:f$-"Bitte Ziffer des Programmes eingeben":gosub 


51000 
Die Eingabe erfolgt nur im Feld 2. 


Auf diese Weise kann auch in ahnlichen Fallen ver f ahr en 


werden, ohne den Benutzer durch eine plötzlich geänderte 
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Syntax zu verunsichern. 

überhaupt sollte man sich es angewöhnen, immer nur 
gleichartige Aktionen zu verlangen. Oft wird namlich der 
Fehler gemacht, daß längere Eingaben mit INPUT geholt 
werden, was beim Anwender nach der Eingabe das anschließende 
Drücken der Taste RETURN erfordert, wohingegen an anderer 
Stelle im gleichen Programm eine einfache 
Ja/nein-Entscheidung mittels GET eingelesen wird, wonach 
RETURN nicht erforderlich ist und dem Bediener die 
Möglichkeit einer Korrektur genommen wird. 

Es sollte grundsätzlich die Bestätigung mit RETURN verlangt 
werden, da bis dorthin die Eingabedaten noch korrigiert 
werden können, was aber dennoch nicht die problematische 
Eingabe mit INPUT notwendig macht. 

Eine Ausnahme bilden die Funktionstasten. Diese sollten als 
Steuertasten, wie RETURN, unmittelbar eine Aktion 
veranlassen können. Steuertasten brauchen nicht quittiert zu 
wer den (RETURN selbst wird ja auch nicht besonders 
bestätigt). 

Mehr darüber und eine entsprechende Routine jedoch im 


nachsten Abschnitt. 


2.1.4 TASTATURUBERNAHME 
Hinter diesem Titel verbirgt sich dreierlei: 


1. Die Abfrage der Tastatur 
2. Die simultane oder nachträgliche Anzeige am Bildschirm 
= 


. Die fliegende oder abschließende Flausibilitätskontrolle 


Zur Abfrage der Tastatur bieten sich im wesentlichen zwei 
Verfahren an, die beide sowohl Vor- als auch Nachteile 
besitzen. 

INPUT 

Dieses Kommando besitzt den Vorzug, daß es den blinkenden 
Cursor auf dem Bildschirm erscheinen läßt, was vom Bediener 
eigentlich immer als Aufforderung zur Eingabe verstanden 


wird. Auch wird die Eingabe sofort in eine Variable 
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übernommen, was Manipulationen mit einzelnen Zeichen 
überflüssig macht. 

Ein gravierender Nachteil jedoch besteht darin, daß bei 
Verwendung einer numerischen Variablen als  Input-Argument 
die Eingabe eines nicht numerischen Zeichens zum 
Programmabbruch führt. Das ist besonders unangenehm, wenn 
Benutzer und Programmierer nicht identisch sind, da der 
Anwender nicht wissen kann, wo das Programm zum 
ordnungsgemäßen Fortgang wieder aufgesetzt werden muß. Hier 
besitzt der 

GET 

einen klaren Vorteil, denn dieser übernimmt die Tastendrücke 
kritiklos, und das ist auch schon alles, was an Vorzugen zu 
berichten ıst. 

Nachteilig ist, daß beim Get kein Cursor erscheint. Die 
Aufforderung zur Eingabe muß also anderweitig erfolgen, 
entweder durch vorhergehenden Print einer Zeile oder durch 
Einschalten des Cursor. Außerdem muß ein String aus den 
einzelnen Zeichen zusammengepuzzlet werden, und es besteht 
keine Korrekturmöglichkeit während der Eingabe. Wir haben 
eine kleine Routine vorbereitet, die in Verbindug mit dem 


Maskengenerator diese Probleme zu Ihrer Zufriedenheit löst. 


Die Frage, wann die eingegebenen Daten am Bildschirm 
angezeigt werden sollen, stellt sich eigentlich nur beim 
Get. Dieser bringt die Eingabe nicht automatisch, wie der 
Input, zur Anzeige. Es wird eigentlich blind eingegeben. Das 
macht es notwendig, das empfangene Zeichen sofort auf den 
Bildschirm zu printen, da eine Anzeige erst des fertig 
zusammengebauten Strings von großem Vertrauen in die 


Treffsicherheit des Benutzers zeugt. 


Die Flausibilitätskontrolle schließlich ist ein Thema, dem 
viel zu wenig Beachtung geschenkt wird. Es läßt sich nämlich 
oft schon gleich nach der Eingabe überschlägig feststellen, 
ob ie Daten innerhalb von Ihnen festzulegender 
Wahrscheinlichkeitsgrenzen liegen, sei es durch Kontrolle 
der Länge eines Strings oder des Zahlenbereiches einer 


numerischen Eingabe. So ist es z.B. unwahrscheinlich, daß 
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eine Hausnummer 5 Stellen umfaßt oder das Geburtsdatum einer 
lebenden Ferscn vor 1830 liegt. Sie könnten sogar wahrend 
der Eingabe schon prüfen, ob nur Ziffern eingegeben werden, 
wenn solche auch verlangt sind. Mit Get wäre das, ungeachtet 
der sonstigen Nachteile prinzipiell möglich, etwa in der 


Form 


10οεί a¥:if at=""then1@ 


2016 asclat)<49 or asc lat) >S7theni@ 


Mit dieser Zeile lassen Sie nur die Ziffern 6..9 zu. Sie 
konnten den Bereich noch auf den Punkt und das Minuszeichen 
ausdehnen, die ja eigentlich auch zu den numerisrhen 
Eingaben zu zahlen sınd, oder auch nur bestimmte Buchstaben 
zulassen. Ihrer Fhantasie sind keine Grenzen gesetzt. 

Da aber kaum jemand sich die Mühe macht, haben wır diese 
Möglichkeiten in einer  Input-Routine zusammengefaßt, die 
sowohl die Zeichenart (numerisch oder nıcht) als auch die 
Menge der eingegebenen Zeichen überwacht. 

In Verbindung mit dem Maskengenerator können Sie zuverlassig 
verhindern, daß im Feld Fostleitzahl ein Buchstabe 
eingegeben wird, ja der Anwender wird sogar gezwungen, 4 
Ziffern einzugeben. Vorher wird die Routine nicht verlassen. 
Was das für Sıe heißt, konnen Sıe selbst ermessen. Im 
Abschritt SEN Gees, haben wir Ihnen gezeigt, welche 
Möglichkeiten Ihnen zur Definition eines Eingabefeldes zur 
Verfugung stehen. Die folgende Routine sorgt nun dafür, daß 
Ihre Eingabevorschriften streng beachtet werden. Sie werden 
zugeben, dal ein solches Verfahren etliche 
Fehlermöglichkeiten erst gar nicht aufkommen läßt. 

Die Handhabung besteht einfach darın, da3 Sie nach dem 
Maskenaufbau beliebig ott und fur jedes Feld diese Routine 


mit 


100f 7—2:gosub49000 


anspringen konten, Sie brauchen nur f% mit der Numrer des 


gewunschten Eingabefeldes versorgen. und das Ergebnis wird 


Ihnen in fft zuruückgeliefert. 


108 


Beachten Sie bitte: Bei numerischen Feldern müssen sie f$ 
zuerst mit z.B. a-val(f$) umwandeln, wenn Sie mit dieser 


Zahl rechnen wollen. 


49002 rem 

490720 remt feldeingabe ἀκακκκκκκκκκκκκκκὙκ 

49040 rem 

49060 #$="":ıf#%(f%,8) =dthenreturn 

49080 iff%<lorf%>25thenreturn 

49100 printchr£(5):1 

49120 ml=f%(f%,1)andl 

49140 cb$-" Å" 

4918 mn=1:1ff2°0F2Z,1) and2thenmn=0 

49180 il-fíAX(f*,U) 

49200 cz-f7:cs-fAGO 4,2) 

49220 pokeZ14,cz:poke211,cs:vs58732 

49240 f$-'"'":cc-0:ms-u 

492509 poke204,0:rem cursor ein 

49780 getg$:1ifg$-""then49280 

49285 ifasc(gf$)«4»13then49300 

49290 if fZ(F7%,3) =1thencc=11 

49295 goto49380 

49388 printleft$(cb$,11): 

49520 pokezil,cs:fA(f%,S)=B 

493540 goto49 580 

49368 getg$:ifg$-"'"then49360 

49380 g-asc(gf):ifg-i3thenonml-tigoto49640,49600 

49398 ifg71l32andg< 141 thenf $29$:cc-2-0: goto49640 

49400 ifg=29andpeek (211) <=cst11—-1thengosub49826: goto049368 

49420 ifg=157andpeek (211) »csthengosub49820: goto49 360 

49440 onmngoto49520 

49460 1f (g>47andg“S8) or g=450r g=46then49546 

49500 got 049360 

49520 ifg«32or (g>127andgi16B) then49 360 

49540 ifcc<ılandpeek (211)<=cstil—-ithencc=cctl: 
gosub49820: goto49 560 

49560 ifpeek (211) <cs+tilthengosub497828 

49580 goto049368 
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49600 iff%(#%,3)then49648 

49620 ifpeek (Z21i1)<>f%(f%,2)+ilorcc<ilthen49360 
49640 poke205,2 

49660 ifpeek(207)«»Qthen49660 

49680 poke204,1:rem cursor aus 

49700 poke211,cs:poke214,cz 

49720 ifcc-Qthenreturn 

49730 open3,3 

49740 get#3,g9$:ifg$=chr#(13)thenf$=leftft(f$+cb#,il):return 
49760 f$-f$*9$ 

49780 iflen(f$)<ilthen47748 

49800 close 3 : return 

49820 poke205,2 

49840 ifpeek(207»)«»5Q0then49840 

49860 printg$::ifpeek (211) >msthenms=peek (211) 
49888 return 


Folgende Variable sollten Sie kennen: 


f* muß die Feldnummer enthalten. 

t%(f%,x) enthält die das Feld beschreibenden Parameter 
cc enthält die Anzahl der gültigen Zeichen 

il entspricht der Feldlange 

f$ schließlich enthalt die fertige Eingabe 


49000- 

49260 Die Laufvariablen werden dem Array f%(f%A,x) entnommen, 
der Cursor auf die erste Stelle des Eingabefeldes 
gesetzt und eingeschaltet. 

49280- 

49360 Ein Zeichen wird von der Tastatur geholt. Falls es das 
erste Zeichen war, wird eine evtl. Vorbesetzung des 
Feldes gelöscht. 

49380- 

49580 Ist das Zeichen RETURN (13), wird zur überprüfung der 
Länge gesprungen. Die Zeichen Cursor rechts/links 
werden unmittelbar ausgeführt, falls das Zielfeld 


innerhalb des Eingabebereiches liegt (Kontrolle durch 


peek (Z11)). 

Falls es sich um Funktionstasten handelte, wird ohne 
weitere überprüfung die Routine verlassen. Alle 
anderen Zeichen durchlaufen ein Filter (numerisches 
Filter in 49460, Steuerzeichensperre in 49520). 
AbschlieBend wird wieder gepruft, ob sich der Cursor 
noch innerhalb der Grenzen befindet. 

497600- 

49620 Hier wird die Zwangslänge geprüft. Wurden nicht 
genügend Zeichen eingegeben oder war das Feld nicht 
vorbesetzt, geht es wieder zurück zur Eingabe. 

49640- 

49800 Wurde kein Zeichen eingegeben, wird der Cursor 
ausgeschaltet und zurückgesprungen. Ansonsten werden 
die eingegebenen Zeichen in der Länge von il vom 
Bildschirm geholt und in f$ dem Benutzer übergeben. 

49820- 

49880 Diese kleine Subroutine dient der Anzeige des 
eingegebenen Zeichens, falls es die Filter passiert 
hat. Dazu wird die Dunkelphase des Cursor abgewartet 
(207-0). da sonst u.U. der Cursor am alten Platz 
stehenbleibt. Das Timing dafür ist in Basic nicht so 
genau hinzubekommen. Es kann daher schon einmal 
vorkommen, daß ein reverses Feld auf dem Schirm 
stehenbleibt. Der Gültigkeit der Daten tut das jedoch 


keinen Abbruch. 


2.2 DATENVERARBEI TUNG 


Verehrter Leser, wir sind uns völlig klar darüber, daß wir 
mit diesem Abschnitt ein heißes Eisen anfassen und wir sind 
der faulen Eier, die Sie nach uns werfen werden, bereits 
gewartig, aber sei e drum. 

Bitte verstehen Sie uns nicht falsch: 

Wır wollen hier nicht schulmeistern, denn wir sehen uns 
nicht als das Maß der Dinge, aber vielleicht zeigt Ihnen die 
eine oder andere Ausführung neue Wege auf, an die Sie bisher 


garnıcht dachten, und damit haben wir unser Ziel eigentlich 


schon erreicht. 

Sicher hat jeder seinen Stil, und den möchten wir Ihnen auch 
nicht nehmen. Es könnte jedoch der Fall eintreten, daß Die 
ein besonders großes Programm erstellt hanen, dem hinterher 
zum Ablauf der  Soeicherplatz fehlt, weil Sie mit den 
Variablen allzu großzügig umgegangen sind, und damit sind 


wir auch gleich beim ersten Punkt unserer Betrachtungen. 


2.2.1 VARIABLE 


Variable, insbesondere numerische Variable, sind die 
Spielwiese aller Frogrammierer. Wie auch anders, da Sie ja 
nicht Frogramme in der im Abschnitt 2.1 beschriebenen rorm 
produzieren wollen. 

Haben Sie sich eigentlich schon einmal Gedanken darüber 
gemacht, wieviel Platz eine Variable im Speicher benötigt” 
Gleitpunktvariable (das sind die ohne Zusatz) belegen  fuüunf 
Bytes, den Platz für den Namen (2 Bytes) nicht mitgerechnet. 
denn den brauchen alle Variablentypen. 

Damit überstreichen sie einen Bereich mit neun signifikanten 
Stellen (dei Stellen ohne Vor- und  Nachnullen) und einem 
zweistelligen Exponenten. 

Variable vom Typ Integer (%) haben einen Zahlenraum von +/- 
32787, belegen aber den gleichen Platz wie 
Gleitpunktvariable, d.h. numerische Variable belegen 
arundsatzlıch 7 Bvtes. 

Stringvariable ($) belegen zunachst auch 7  Hytes, namlich 
zwei fur den Namen, eins fur die Lange und zwei Bytes als 
Fointer, welcher auf den Speicherplatz zeigt, wo die 
Nettodaten stehen. Dort wird fur jedes Zeichen des Strings 
ein Eyte belegt. 

Waren noch die Arrays zu nennen. Das sind Variadlenfelder, 
die mit einer DIM-Anweisung eingerichtet werden müssen. 

Hier sieht der Flatzbedarf etwas anders aus: 
Gleitpunktarrays belegen nach wie vor pro Element fünf 
Rytes, Jedoch Integerarrays nur zwei Bytes fur jedes 
Element. 


Stringarrays belegen zunächst 3 Bytes für 196485 Element, 


nämlich wieder eines für dıe Länge und zwei als Pointer. Die 
Nettodaten selbst werden wieder dynamisch angelegt. 

Beachten Sie eines: Numerische Arrays werden sofort bei DIM 
in der vollen Größe angelegt, Stringarrays jedoch nur mit 
den Verwaltungseinträgen. Sie wachsen danach erst mit dem 


Füllen. 


Was wir damit sagen wollen? 

Bei numerischen Variablen ist es ziemlich gleichgültig, ob 
sie vom Typ Gleıtpunkt oder Integer sınd, jedoch bei Arrays 
sollten Sie sich überlegen, ob Sie nicht auch mit ganzen 
Zahlen bis 32767 auskommen können. 

Eine äußerst platzsparende Methode für die Ausgabe aut 
Diskette (jedoch etwas rechenaufwendiger) ist die, ganze 
Zahlen in einer Stringvariablen unterzubringen. Bei Zahlen 
bis 255 geht das einfach durch die Anweisung 

a$=chr$ (a) 

Die Ruckverwandlung geschieht durch 

a=asc (a$) 

Von dieser Möglichkeit haben wir bei der Verwaltung der 
QUISAM-Datei reichlichen Gebrauch gemacht, um Platz auf der 
Floppy zu sparen. Zur Bearbeitung im Speicher eignet sich 
dieses Verfahren nicht, da hier mehr Platz gebraucht wird 
als bei einer numerischen Variablen. 

Auch bei Arrays laßt sich gewaltig Flatz sparen. 

Angenommen, Sie benötigen ein Feld der Form a(1000), sind 
aber sicher, daß davon nur wenige Felder tatsächlich belegt 
werden, die Dimension aber trotzdem sein muß, da Sie nach 
einem bestimmten Algcrhitmus auf die Felder zugreifen. 
Probieren Sie in einem solchen Falle einmal ein Feld der 
Form (10200). Die Einträge nehmen Sie mit at(x)=str$ (a) 
vor. So belegen Sie nur den tatsächlich benötigten Flatz. 


Hervorholen können Sie die Daten wieder mit a=vallaf(x)). 


Haben Sie überhaupt schon einmal daran gedacht, auf Floppy 
zu speichernde Daten zu komprimieren” 

Mit Zahlen beliebiger Lange, sofern sie keine 
Nachkommastellen besitzen, läßt sich das hervorragend 


machen. über je zwei Stellen der Zahl wird einfach der chr $ 
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- zza-e- Sie die Hälfte des Platzes, was bei 


z- ZLrtreten von Zahlen sehr viel sein kann. 


Noch ein Tip: 

Haufig wird, um etwa vorhandene Nachkommastellen 
abzuschneiden, die Funktion INT bemüht. Falls Sie sicher 
sind, daß die zu behandelnde Zahl den Bereich bis 32767 
nicht verläßt, nehmen Sie doch anstelle von 

a=int (b) einfach einmal 

aZ=b 

Das geht zum einen etwas schneller und spart auch Flatz im 
Programmspeicher, weil die Anweisung kürzer ist. 

Vielleicht überlegen Sie bei Ihrem nächsten Projekt einmal, 


was von dem Gesagten für Sie anwendbar ist. 


2.2.2 RECHENGENAUIGKEIT 


Es gibt beliebte Beispiele, die von Vertretern bestimmter 
Rechnerfabrikate immer wieder angeführt werden, um das 
Konkurrenzprodukt madig zu machen. 

Eines davon ist eben 

printsar (5) 2 

Was glauben Sie, was herauskommt” 

9. 40000001 

Wie Sie sehen, hat der Rechner in der letzten Stelle einen 
Fehler gemacht. 

Es gibt noch ein Beispiel: 

1081 

20a-a-.1 

3@printa 

40goto20 

Man sollte glauben, daß nun die Zahlen .9, .8. .7 usw. auf 
dem Bildschirm Revue passieren. Weit gefehlt. Bis .2 geht 
alles gut, dann kommt es: 

- 8999999998 

-2.47382559E-10 

Diese Effekte rühren daher, daß eben das Betriebssystem nur 


mit einer endlichen Anzahl von Stellen rechnet. Da nur neun 


Stellen zur Anzeige gelangen, kann ein Fehler in der letzten 
Stelle schon empfindlich stören, insbesondere bei 
Kettenrechnungen, wo sich derartige Fehler addieren können, 
wonach das Endergebnis dann grob falsch sein kann. 

Um Abhilfe zu schaffen, gibt es leider kein Patentrezept. 
Das gegebene Verfahren wäre Runden, aber die Frage ist, ob 
auf oder ab. Der Fehler kann in beiden Richtungen auftreten. 
Wie Sie vorgehen, wenn die letzte Stelle für Sie von 
Interesse ist, können nur Sie entscheiden, weil das abhängig 
von der vorzugsweise verwendeten Rechenart und natürlich 
Ihrer Anwendung ist, ob Sie lieber auf- oder abrunden. 

Die Frage ist auch, an welcher Stelle gerundet werden soll, 
und das ist von Fall zu Fall verschieden. Die kaufmännische 
Praxis erlaubt das Runden in der dritten Stelle hinter dem 
Komma, während für wissenschaftliche Anwendungen (wenn z.B. 
mit der Wellenlänge des Lichts gerechnet werden soll) auch 
die neunte Stelle nicht akzeptabel ist. 

Sie sehen, wir geben den Schwarzen Feter an Sie zurück. 
Diesmal haben wir kein Progrämmchen als Problemlöser parat, 
jedoch wollten wir es nicht versäumt haben, Ihre Gedanken in 
die richtigen Bahnen zu lenken, wenn Sie einmal mit den 
Rechenergebnissen Ihres Programmes nicht so ganz 


einverstanden sind. 


2.2.5 SORTIEREN 


über dieses Thema ließe sich in ganzes Buch schreiben, denn 
es gibt hierfür fast soviele Verfahren, besondere Varianten 
davon und spezielle Winkelzüge, wie es Softwareautoren gibt. 
Das  Kernproblem besteht im Grunde nur darin, Daten 
(allgemein) nach einem bestimmten Kriterium zu sortieren, 
sei es auf- oder absteigend, oder in der ersten Hälfte das 
eine, in der anderen Hälfte das andere. 

Bestimmt wird Ihnen auf Anhieb auch eine Lösung einfallen. 
Was jeoch die Gemüter erhitzt, ist einfach die Frage, wie 
das am schnellsten zu bewerkstelligen ist. 

Unser Bestreben ist es jedoch nicht, der Palette eine 


weitere Spielart hinzuzufügen (das überlassen wir 
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anschließend Ihnen), sondern Ihnen zwei gebräuchliche 
Sortieralgorhitmen vorzustellen, die Sie durchaus noch Ihrem 
persönlichen Geschmack anpassen können. Diese vorgestellten 
Verfahren bilden ın aller Regel auch dıe Grundlage der 
Varianten, sodaß es Ihnen genügen mag, den Rump t 
kennezulernen. 

Das erste Verfahren, von dem hier die Rede sein soll, macht 
eigentlich nichts anderes, als was gewöhnlich auch Spieler 
mit ıhren Karten tun: sie nehmen hohe Werte von rechts und 
stecken sie nach links auf die Hand und umgedreht. Das 
geschieht völlig unbewußt, ohne daß man sich dabei Gedanken 
(Ober den Algorhitmus macht. Man weiß eben, wie es geht. 

Das Ganze wird verbreitet auch Eubble-Sort genannt, 
angelehnt an Luftblasen, die in einer Flüssigkeit nach oben 
steigen und dem schwereren Medium unten Platz machen. 
Erinnern Sie sich nocheinmal an das Kartenspiel: durch das 
Bewegen der hohen Karten nach links rutschen die niederen 
Werte {δεῖ von alleine nach rechts. Das wird sooft 
wiederholt, bis sich die richtige Reihenfolge eingestellt 
hal. 

Unserem Rechner fehlt natürlich der überblick, den Sie über 
Ihre Karten haben. Sie sehen sofort, wo das As steckt und 
packen es zıelstrebig. Ein Computer müßte, von einer Seice 
beginnend, jede Karte einzeln anschauen und sie mit jeder 
der folgenden vergleichen, um festzustellen, welchen Wert 
die gerade betrachtete karte im Vergleich zu den anderen 
hat. Dazu braucht er bei sieben Karten uüberschlägig 49 
Vergleiche (7^2), weil Jede Harte mit jeder anderen zu 
vergleichen ist, um auch ja keine auszulassen. 

Damit ist die Funktionsweise des  Bubblesort bereits so 
hinreichend umrissen, daß wir uns gleich an das zugehörige 
Frogramm waaen können. Sie werden erstaunt sein, wie kurz es 
ıst. 

Es besteht im wesentlichen aus zwei Zahlschleifen, deren 


Maximalwert die Anzahl der Karten ıst, nämlich einer inneren 


Schleife (L?) fur den Vergleich der karte Li mit allen 
anderen Harten L2, und naturlıch eınem Stapel Karten 
(sd#ix)). 


Nach einem L2-Durchlauf wird die nächste karte Li genommen 


und wieder mit allen anderen Karten L2 verglichen. 

Wie nun sortiert wird (vergleichen alleine hilft ja noch 
nicht)” 

Ganz einfach: immer wenn festgestellt wird, daß eine 
Li-Karte größer als eine L2-Karte ist, werden die beiden 
kurzerhand vertauscht, indem die Li-Karte auf den Tisch 
(sa,sat) gelegt wird, die L2-Karte an den alten Platz der 
Li-Karte kommt, diese wieder vom Tisch genommen und an den 
Platz der L2-Karte gesteckt wird. 

Probieren Sie es ruhig einmal mit einem Kartenspiel aus. Sie 
weden sofort merken, worum es geht und worauf zu achten ist, 
um evtl. schneller zum Ziel zu kommen. 

Das Sortierprogramm ist als Unterprogramm gestaltet. Zur 
Verfügung brauchen Sie eigentlich nur Ihre Daten zu stellen, 
und zwar in sd$(x). Dieses Feld müssen Sie selbst nach 
Bedarf dimensionieren. Damit der Sort feststellen kann, wie 
groß es ist, muß das letzte Element des Feldes chr£(255) 
enthalten. 

Automatisch wird noch ein zweites Feld sd%(x) mitsortiert. 
Das hat folgende Bewandnis: 

Aus längeren zu sortierenden Datensätzen, z.B. Adressen, ist 
ın der Regel nur ein kleinerer Teil als Sortierkriterium 
interessant, beispielsweise der Nachname. Nur mit diesen 
füllen Sie sd#t(x). In sd%(x) konnten Sie jetzt die 
zugehörige Satznummer der Diskette hinterlegen. Bubblesort 
macht den Vergleich zwar nur über sdft(x), jedoch wird sd# (x) 
auch vertauscht, sodaß Sie, falls es Ihnen nicht nur um den 
Inhalt von sd#(x) zu tun ist, sondern um den gesamten Satz, 
diese Sätze in der richtigen Reihenfolge hervorholen können, 
indem Sie Diskette einfach mit dem Inhalt von sd% (x) 
adressieren, beginnend bei sd%(B) bis zum Maximum. Dieses 
Maxımum erhalten Sie aus der Variablen sn, welche beim 
Absucnen von sdf(x) nach chr$ (255) als Zähler diente. 

Nach dieser ausführlichen Einleitung nun das Programm, das 
wir seiner Kürze weaen nicht weiter kommentieren. 

Ein wichtiger Hinweis: Sie müssen sd“ (x) auch dann 
dimensionieren, wenn Sie keine korrespondierenden Einträge 
benötigen. Bubblesort rechnet auf jeden Fall damit. 


Andernfalls bekommen Sie einen ‘bad supscript error’. 


Falls Sie diese Funktion überhaupt nie benötigen, entfernen 


Sie die Zeilen 60246. . 66280. 


60000 rem 

60081 remxxxxxxxx** bubblesort 33i3 *cxX3* 
60002 rem 

68068 sn=8:11=255 

60080 ifasc (sd$(sn))<>lithensn=sn+1:qoto060080 
601800 sn=sn-1 

60120 forli=8tosn-1:forl2=11+1tosn 

60140 ifsd$(11)<sd#(12) then60300 

60180 sa$-sd$(11) 

60200 sd$(11)=sd$(12) 

60220 sd$(12)-2sa$ 

60240 sa=sdZ(11) 

60260 sd%A(12)=sd% (11) 

60280 sdA(11)=sa 

60500 nextz:next 

60520 return 


übrigens: Wenn Sie eine absteigende Reihenfolge wünschen, 
brauchen Sie nur den Vergleich in Zeile 60140 umzukehren. 
Als Größenordnung für den Zeitbedarf gilt etwa, daß zum 
Sortieren von 100 Elementen ca. 175 sec benötigt werden. Die 
Zeit steigt mit der Anzahl der zu sortierenden Elemente 
quadratisch an, d.h. für 1000 Elemente brauchen Sie bereits 
17500 sec. 

Wie es auch schneller geht, zeigt das nächste Verfahren, 


namlich der 


QUICKSORT 

Dieser trägt seinen Namen zu Recht, denn er ist das 
durchschnittlich (zu ‘durchschnittlich’ noch eine Bemerkung 
am Ende) schnellste Verfahren. Um Ihnen einen Vorgeschmack 
zu geben: für 188 Elemente braucht Quicksort nur ca. 25 
sec., also 7mal schneller als  Bubblesort. Der Zeitbedarf 


wachst mit der Elementezahl nur etwas stärker als linear, 
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aber bei weitem nicht quadratisch. Dennoch ist das 
Frogrämmchen etwa gleichgroß wie Bubblesort. 

Wie das funktioniert” 

Nehmen Sıe wieder Ihr Kartenspiel von vorhin auf. Haben Sie 
eben jede Karte mit allen anderen verglichen, ob sie größer 
oder kleiner ist, so merken Sie sich nun eine Karte aus der 
Mitte der Anordnung. Jetzt vergleichen Sie zunächst die 
Karten links davon,vom linken Rand beginnend, mit der 
mittleren. Haben Sie eine gefunden, die kleiner ist, merken 
Sie sich diese und vergleichen nun die Karten der rechten 
Halfte mit der mittleren, vom rechten Rand beginnend. 
Entdecken Sie eine, die größer ist als diese, tauschen Sie 
einfach die gefundene karte mit der, die Sie sich  vorhin 
gemerkt haben. aus. 

Nun fahren Sie bei der linken Seite da fort, wo Sie vorhin 
unterbrochen haben. Werden Sie wieder fündig, merken Sie 
sich auch diese Karte und machen rechts weiter, und so fort, 
bis sıch der recht und der linke Vergleich treffen (das muß 
durchaus nicht in der Mitte sein. Wenn Sie nun die karten 
anschauen, können Sie schon sehen, daß en links von dem 
gedachten Treffpunkt alle Karten befinden, die größer sind 
als die ursprünglich willkürlich zum Vergleich 
herangezogene, und rechts davon alle kleineren. Das ist 
schon ein gewaltiger Fortschritt, weil das Kartenspiel jetzt 
grob vorsortiert ist. Nun merken Sıe sich wieder etwa aus 
der Mitte zwischen rechtem Rand und dem Treffpunkt eine 
Karte und führen das oben beschriebene Verfahren mit dem 
rechten Viertel und dem zweiten Viertel von rechts durch. 
Auf diese Weise behandeln Sie die immer kleiner werdenden 
Teilstücke, bis nur noch zwei Karten übrig sind. Nun hat die 
zuletzt behandelte, ganz rechts außen liegende Teilmenge die 
richtige Reihenfolge und Sie wenden das Verfahren auf die 
nächste weiter links liegende kleinste Teilmenge an, bis Sie 
wieder beim allerersten Treffpunkt gelandet sind. Alle 
Karten rechts davon haben nun die richtige Reihenfolge. Nun 
werden dıe karten links davon sortiert, immer kleinere 
Teilmengen bis zum linken Rand bildend und dann von der 
letzten ausgehend wieder zur Mitte hin. Jetzt ist auch die 


linke Seite vollständig sortiert. Da aber im ersten 


Durchlauf bereits alle Karten. gemessen an der gedachten 

Veroleichskarte, nach rechts und links verteilt wurden, muß 

nun zwangsläufig das gesamte Kartenspiel sich in der 

rıchtigen Reihenfolge befinden. 

Das hört sich zwar ungeheuer kompliziert an, aber wenn Sie 

es eınmal durchführen werden Sie merken, wie einfach das 

Verfahren im Grunde ist, da immer die gleiche Behandlung 

immer kleineren Mengen zuteil wird. 

Auch programmtechnisch gibt es keine Schwierigkeit und es 

werden auch dieselben Eingangsparameter gebraucht. Um bei 

der oildlichen Vorstellung zu bleiben: 

sd# (nicht sd#(x)'!) enthalt die zum Vergleich aus der Mitte 
gemerkte Karte. 

Sv$ „ bzw. sv ist der Tisch, auf dem wir eine Karte beim 
Vertauschen ablegen (wir haben ja nur zwei Hände). 

si(x) enthalt alle linken Ränder der noch zu bearbeitenden 
Teılmengen. 

s?(x) enthalt alle rechten Ränder der noch zu bearbeitenden 
Teilmengen. 

S1 ist der linke Rand des gerade bearbeiteten Teils. 

s2 ist dessen rechter Rand. 

sp ist ein Zeiger auf die “Randerspeicher’. Beim 
Zurückarbeiten vom Rand nach innen wird hiermit nach 
Abhandlung der Teilmenge ein neues Randerparchen aus den 
Speichern geholt, wo sie naturlich in derselben 
Reihenfolge stehen, wie sie zwecks Abarbeiteung der 
nachstkleineren Menge zunächst dort hinterlegt wurden. 

li und 12 schließlich enthalten die Zeiger auf die gerade 


zum Vergleich mit der mittleren herangezogenen Karten. 


Damıt halten wir das nun folgende kurze Frogramm auch schon 


fur hinreichend erläutert. Hıer ıst es: 


p 
PJ 
5 


61000 rem 

61001 FM εκ κκ κκ quicksort 3 €x € € € 3€ (CC 3€ 
61002 rem 

61020 onsfZ*gotoóoil060 

61040 dimsi1(15),52(1520:sf7-1 

61060 sn=B:11=255 

61080 ifasc(sd$(sn))«»511thensn-sn«*«1:gotoóo1080 
61100 sn=sn-1:sp=@ 

61120 s1(0)5-0:52(0) -sn 

61140 si=s1 (sp) :s2=s2 (sp) 

61160 sp-sp-1 

61180 11=s1:12=s2 

61200 sd$=sd$ ((s1+s2)/2) 

61220 ifsd$(11)<sd$andli1is2thenli=11+1:90t061228 
61240 ifsd$(12) >sd$andl2>sithenl 2=1 2-1: goto061240 
61260 i1f11>12thené61346 

61280 sv=sd% (11) :sd% (11)=sd% (12) 2:sd%(12) =sv 
61500 sv$=sd%(11):sd#(11) =sd% (12) :sd#(12) =svs 
61326 11=11+1:12=12-1 

61540 if11<=1 2thené6122@ 

61368 i1fs2-11<=12-sithené1420 

61580 ifsil<l2thensp=spti:si (sp)=sil:s2(sp)=12 
61400 si=11:go0to061460 

61420 ifli<s2thensp=spti:si (sp) =11:s2(sp) =s2 
61440 s2=12 

61460 ifs2>sithen6é118@ 

61480 ifsp>-1then6é1140 

61588 return 


Wir haben Ihnen nun eines der langsamsten und eines der 
schnellsten Sortierverfahren vorgestellt. Diese 
Klassifizierung ist als durchschnittlich zu verstehen. 
Durchschnittlich heißt hier, daß die Programme sowohl 
auf zufällige oder bereits sortierte oder absichtlich 
falsch sortierte Elemente losgelassen werden, wobei sich 
in jedem Falle unterschiedliche Zeiten ergeben, von 
denen der Durchschnitt ermittelt wird. 


Wenn Sie den Bubblesort derart optimieren, daß eın 
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Schleifendurchlauf ohne Vertauschung von Elementen einen 
Merker setzt, können Sie auch dieses Verfahren erheblich 
abkürzen. Dann hat es auch seine Berechtigung als 
einfacher Algorhitmus zum Sortieren weniger Elemente 
(bis etwa 10). 

Bei großen Feldern ist der Quicksort Meister aller 


Klassen. 


In diesem Zusammenhang vielleicht noch ein paar 
Betrachtungen zum Auffinden bestimmter Elemente aus 
eınem Feld. 

Ging es beim Sortieren darum, eine gewisse Ordnung 
herzustellen, ist bei der Suche ein moglichst schneller 
Zugrıff erwünscht. Die Frinzipien der linearen 
Vorgehensweise wie beim  Bubblesort oder die der 
Teilmengenbildung wie beim Quicksort sind auch hier 
anzuwenden. Welches Verfahren bei der Suche das 
schnellere (oder überhaupt mögliche) ist, hangt einzig 
und alleın von der Anordnung der Elemente ab. Liegen 
diese sortiert vor, bietet die Teilmengenbildung 
erhebliche Vorteile, da wieder zunachst der Suchbegriff 
mit dem mittleren Eintrag verglichen wird, Ist der 
Suchbegriff kleiner, wird aus der Mitte der unteren 
Halfte ein Vergleichskriterium hergenommen,  usw., bis 
die Auswahl nur noch zwischen zwei Elementen erfolgt. 
Dieses Verfahren ist keinesfalls auf unsortierte 
Elemente anwendbar, wie sich schon aus dem Verfahren 
selbst erqibt. 

Die lineare Suche. namlich von unten nach oben (oder 
umgekehrt), ist immer moglich, dauert jedoch naturgemäß 
am längsten. wenn der zu suchende Eintrag ausgerechnet 
am anderen Ende der Anordnung steht. 

Ihnen hierfur ein Frogramm anzubieten, könnten Sie als 
Beleidigung auffassen. Deshalb nehmen wir davon lieber 


Abstand. 
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DATENAUSGABE 


Eine Frage. die erfahrungsgemäß viel zu spat, nämlich erst, 
wenn das Frogramm fast fertig ist, gestellt wird, ist die 
nach dem WOHIN?. 

Sie erfreuen sich gerade noch an den raffinierten 
Winkelzügen, mit denen Sie noch ein paar Sekunden 
Laufzeitersparnis herausgekitzelt haben, alle Algorhitmen 
arbeiten zur vollen Zufriedenheit, da trifft Sie der Blitz: 
Sie haben während der ganzen Aktion die Datenausgabe 
ziemlich außer acht gelassen, weil Sie nämlich (was richtig 
ist) einzelne Module und Unterprogramme auf ihre 
Funktionstiüchtiıgkeit getestet haben, diese dann zu einem 
Ganzen gebunden und dabei versaumt, evtl. zur Ausgabe 
gelangende Daten rechtzeitig und in geeigneter Form 
bereitzustellen. 

Zum Zeitpunkt des Auftretens wäre das noch bequem möglich 
gewesen, da dort evtl. noch weitere beschreibende Parameter 
vorhanden waren. Hierbei brauchen Sıe nur einmal an die 
Definition eines Eingabefeldes im Abschnitt 2.1.2 zu denken. 
Bei der Eingabe von Daten wußten Sie noch, wie lang der 
String war, weil das zugehörige Feld entsprechend 
dimensioniert war. Nun aber, da Ihnen die Daten nur als 
nackter String vorliegen, müssen Sie die Länge zwecks 
vielleicht formatgerechter Ausgabe erst ermitteln. 

Was wir damit sagen wollen, ist einfach folgendes: 

Sie sollten zu jedem Zeitpunkt des Auftretens von wie auch 
immer gearteten Daten prüfen, ob und in welcher Form sie für 
eine Ausgabe benötigt werden, damit Sie diese, um bei 
unserem Beispiel von oben zu bleiben, auf das geforderte 
Format auffüllen oder ausrichten konnen. Zu diesem Thema 


erfahren Sie noch mehr im Abschnitt 2.3.2.2. 


Gegenstand der folgenden Betrachtungen werden zunächst die 
Ausgabe auf Floppy, und im Abschnitt 2.3.2 die Ausgabe auf 
Drucker sein. 

Die Bildschirmausgabe, als Ergebnis eines Programmes 
gesehen, lassen wir außer acht, da der Bildschirm als 


naturgemaß f$lüchtiges Medium nur der vorübergehenden 


Anzeige, wie z.B. bei der Maske, dient. 


.5.1 AUSGABE AUF FLOPPY 


Wer sich zum ersten mal mit einer Floppy beschäftigt, wird 
wohl ein wenig fassungslos das zugehörige Handbuch 
studieren. 

Von einer einfachen Syntax wie bei der Ausgabe auf 
Bildschirm oder (schon vielfältiger) Drucker kann hier nicht 
mehr die Rede sein. Beim OFEN geht es schon los. Das 
Einfachste und daher auch meistgebrauchte ist das Laden und 
Speichern von Frogrammen. Wer sıch bisher mit einer 
Datasette herumgequält hat, weiß das auch zu würdigen. 

Der nächste Schritt, weil am druckerähnlichsten in der 
Handhabung (abgesehen vom OPEN) ist eine serielle (oder auch 
sequentielle) Datei. Ab hier wird das Bedienungshandbuch für 
die meisten uninteressant, denn wer mag sich schon (von 
einıgen Spezialisten einmal abgesehen) mit den 
Block-Direktzugriffen und der zugehorigen 
Freispeicherverwaltung herumschlagen. 

Dennoch bietet die Floppv mehr , wenngleich 
bedauer licherweise im Handbuch nicht beschrieben. Da ware 
die Erweiterung sequentieller Dateien oder die Handhabung 
von REL-Files (was ist das schon wieder). 

Auch diese Dinge sind vergleichsweise einfach, also ohne 
'Bitfieselei'. zu handhaben. Wie, das werden wir Ihnen 


zeigen. 


Die sequentielle Datei ist erstaunlicherweise die häufigst 
benutzte, wenn auch für die meisten Anwendungen, bei denen 
die Daten später wieder gebraucht werden, die weitaus 
unpraktischste. 

Das liegt sicher zum einen daran, dal3 echte Alternativen 
nicht angeboten werden; zum anderen ist die Anwendung 
einfach zu beherrschen. 

Was heißt nun SEQuentiell? 

Sequentiell könnte einfach mit ‘der Reihe nach’ übersetzt 
werden, was auch den Kern der Sache trifft. Es ist in der 
Tat so, daß eingehende Daten im Augenblick des Auftretens 
(FRINT#-Befehl) auf der Stelle ohne Federlesens auf die 
Diskette (den floppyinternen Fuffer  unterschlagen wir) 
geschrieben werden. 

Wollen wir diese Daten zuruckholen, so kommen sie genau so 
unbesehen wieder in den Rechner. 

Alles prima, denken Sie, wo liegt die Problematik? 

Stellen Sie sich vor, Sie haben einhundert Meter Schnur und 
wollen diese zwecks späterer Verwendung aufwickeln. Sie 
drehen sie also auf das Knauel, so wie Ihnen der Faden durch 
die Finger läuft. Mittendrin kommt Ihnen der Gedanke, ein 
kurzes Stück des Seiles rot zu färben. Anschließend wickeln 
Sie den Rest auf. 

Eine Woche später benötigen Sie ausgerechnet das rote Stuck. 
Da es sich mitten im  knauel befindet, kommen Sie nicht 
daran. Es bleibt Ihnen nichts anderes übrig, als die ganze 
Schnur bis zu der roten Stelle abzuwickeln. Unpraktisch, 
nicht wahr? 

Genauso verhalt es sich mit einer Datei vom Typ SEQ und 
genau hierin liegt die Tücke. 

Der Schnurwickel ist brauchbar, wenn Sıe das Seil als Ganzes 
wieder benötigen. Sie merken sicher, wor auf wir 
hinauswollen. 

Wozu 1st denn eine solche Datei überhaupt gut? 

Sie dient zur schnellen Speicherung großer Mengen von Daten, 


die Sie spater wieder  samtlich und in genau der 


Reihenfolge brauchen. 
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Eine Möglichkeit ist die in 2.2.5 beschriebene Rettung von 
Variablen. 

Eine auch in professionellen Programmen geübte Praxis ist 
die Fortschreibung von Werten. Denken Sie sich eınmal die 
Anwendung als Kasse. Alle Einnahmen werden der Reihe nach 
weggeschrieben. Abends brauchen die Inhalte der Datei nur 
nacheinander eingelesen und fortlaufend addiert werden, um 
den Tagesumsatz zu erhalten. 

Um einmal bei der Fortschreibung zu bleiben: 

Es kann rein theoretisch der Fall auftreten, daß zwischen 
den jeweils zu speichernden Daten größere Zeitintervalle 
auftreten. Sicherheitshalber werden Sie also die Datei nach 
jedem Zugriff wieder schließen. Wie aber neue Daten an die 
bestehenden anhängen” 

Im Handbuch sind nur zwei Zugriffsarten auf die serielle 
Datei beschrieben, namlich: 

open lfn,"name,s,w" fur Schreiben, und 

open lfn,"name,s,r' fur Lesen. 

Versuchen Sie, eine schon bestehende Datei zum Schreiben zu 
eröffnen, wird das rote Lampchen an der Floppy lustig 
blinken. Der Fehlerkanal bringt es an den Tag: 

file exists error 

Ganz Schlaue gehen hin, lesen die alten Daten herunter, 
schaufeln diese in eine Datei anderen Namens und schieben 
die neuen Daten hinterher. Am nächsten Tag dasselbe Spiel. 
Es geht auch einfacher. Probieren Sie einmal folgendes: 

open lfn,"name,s,a" 

a steht hier fur APPEND, also anhängen. 

In dieser Zugriffsart werden neue Daten an die bereits 
bestehenden angehängt. 

Warum das nicht im Handbuch steht” 


Das wissen selbst wir nicht. 


Um diesen Abschnitt zusammenzufassen: 

Sequentielle Dateien eignen sich zur schnellen Speicherung 
von Daten, die spater allesamt wieder benötigt werden. 

Sie eignen sich nicht zur Ablage von Werten, auf die nachher 


Jeweils gezielt zugegriffen werden soll. 


Ein neuer Begriff taucht hier auf. REL bedeutet RELative 
Datei. 

Um wieder auf unser (hier hinkendes, jedoch die Zugriffsart 
verdeutlichendes) Beispiel mit der Schnur zuruckzukommen: 
Sie haben eine Reihe numerierter Fächer, in die jeweils 
genau ein Meter unserer Schnur hineinpaßt. Da Sie des 
öfteren verschiedenfarbige Schnüre von tm Länge brauchen, 
haben Sie sich einıge davon präpariert und auf die Fächer 
verteilt. 

Damit Sie sich bei Bedarf nicht erst durch Augenschein von 
der Farbe überzeugen müssen (die Facher sind geschlossen, 
Sie mußten sie erst öffnen), haben Sie sich ein Verzeichnis 
angelegt. aus dem der Zusammenhang von Fachnummer und 
Schnurfarbe hervorgeht. Sıe brauchen also nur in Ihre Liste 
zu schauen, um die gewünschte Kordel mit einen Griff zu 
bekommen. 


Hieraus wird zweierlei deutlich: 


1. Es kommt nicht sosehr auf den speziellen Fachinhalt an 
(es könnten auch Schrauben und Radiergummis sein) als 
vielmehr auf die zu der Anordnung passende Liste. Denken Sie 
nur an den Bibliothekar, der ohne hinzuschauen das richtige 
Buch greift. 

2. Jedes Fach einer Anordnung hat dieselbe Größe. Es passen 


entweder drei Radiergummies oder hundert Schrauben hinein. 


Zurück zur Datenverarbeitung: Mit Radiergummies und 
Schrauben könnten beispielsweise Strings unterschiedlicher 
Lange gemeint sein. 

Was bedeutet aber nun der Begriff ‘relativ’ in diesem 
Zusammenhang konkret? 

Relativ heißt einfach "bezogen auf den Dateianfang’. 

Ein REL-File besteht aus einer Anzahl reservierter 
Speicherbereiche gleicher Länge. Damit Sie als Anwender 
wahlfrei auf einen dieser Bereiche zugreifen können, sei es 
zum Schreiben oder zum Lesen, ohne daß Sie wissen müssen, wo 


sich dieser Platz physikalisch auf der Diskette befindet, 


verwaltet die Floppy intern sogenannte Datensatzzeiger. Wenn 
Sie also der Floppy mitteilen, daß Sie auf den Platz mit der 
Nummer 12 zuzugreifen wünschen, wird dies als der zehnte 
Platz, gezählt vom Dateianfang, also relatıv zum 
Dateianfang, interpretiert. Der Zeiger wird auf diesen Satz 
gerichtet und, abhängig davon, ob das nachfolgende Kommando 
ein PRINT# oder ein INPUT# ist, der Bereich beschrieben oder 
gelesen. 

Hieraus erkennen Sie, daß eine REL-Datei immer für beide 
Zugriffsarten geöffnet ist. Sie brauchen beim OPEN nicht zu 
spezifizieren, ob Die schreiben oder lesen wollen. 


Praktisch, nicht wahr”? 


Nun geht es los: 

Wie teilen Sie der Floppy mit, wieviele Satze welcher Länge 
Sie gerne reserviert hätten. Dem Handbuch ist, wie gesagt, 
nichts darüber zu entlocken. Das Problem liegt auch in der 
Tat nicht bei der Floppy, sondern im Betriebssystem des C64, 
der nicht über die komfortablen entsprechenden Kommandos des 
Basic 4 der ‘grofien’ Commodore-Rechner verfügt. 

Wir müssen diese Befehle also ‘zu Fuß’ generieren. 

Dazu eine kleine Routine, die wir daran anschließend 


kommentieren werden: 


635800 rem 

6:5801 τθηι ΕΚΕ ΚΕ rel einrichten ΑΝΝΑ 
65802 rem 

63810 ifr1%<2 or r1%>254 or r>55535 thenfí1$-'99":ireturn 
63828 closeós:openó,8,6,"0:"*dn$-",1,"«*chr$(tr17) 

63848 rh%=r /256:r1%=r-256*#rh% 

63868 print#15,"p"chr$(ö6)chr$(rl%)chr$(rhf)chr#(i) 

63888 print&ó6,chr$ (255) 

65900 input&t15,f1$,f12$,f15$ 


63928 closeóo:rz$-""sreturn 


Es geht also, wie gesagt, darum, auf der Diskette 


Speicherplatz zu reservieren, den Sie in mundgerechten 


Häppchen verarbeiten können. 

Die Anzahl der Happen ist zunachst nicht wichtig, da sie 
erst bei Bedarf zur Verfugung gestellt werden brauchen. 
Vielleicht sollten wir diesen Punkt an dieser Stelle noch 
näher beleuchten: Wollen Sie einen Satz beschreiben, der an 
der Obergrenze des beabsichtigten Bereiches liegt, z.B. die 
Nummer 1000, so wird die Datei aufgeblaht, d.h. alle bis 
dahin noch nicht belegten Datensätze bis 999 werden jetzt 
eingerichtet. Die Datei ist wesentlich größer geworden, als 
bis jetzt sinnvoller Inhalt darın steht. Das hat allerdings 
für die folgende Verarbeitung den Vorteil, daß die 
Bearbeitung schneller geht, da neue Sätze nicht jeweils 
eingerichtet werden müssen, sondern bereits, wenn auch leer, 
zur Verfügung stehen. 

Was allerdings festgelegt werden muß, ist die Länge eines 
Satzes. Diese Information braucht die Floppy, damit beim 
"Aufblahen' die richtige Speichergröße reserviert wird 


(uberschlagig Satzlänge * höchste Satznummer). 


Unsere Routine braucht naturlich ubergabeparameter , damit 
sie weiß, was womit zu tun ist. Diese seıen zunächst 


vorgestellt. 


dn$ Name, unter der die Datei eingerichtet werden soll. 

Γι; Lange eines Satzes. Dieser Wert muß wenigstens 2 und 
darf höchstens 254 betragen. Ansonsten reagiert die 
Floppy fehlerhaft. Weitere Verwendung von rl% siehe rh. 

r Hier wird die höchste Satznummer übergeben, auf die die 

Datei zunächst aufgeblasen werden soll. Die kleinste 
Satznummer ist 1, die größte 65535. 
Ergeben sich im Laufe der Verarbeitung höhere 
Satznummern als zunächst eingerichtet, wird die Datei 
automatisch vergrößert, sofern überhaupt noch Flatz auf 
der Diskette vorhanden ist. Limit für die Satznummer ist 
aber in jedem Falle 65535. 

rh% Ohne naher auf die Sedezimalrechnung einzugehen sei hier 
nur soviel gesagt, daß der Wert r in zwei Bytes zerlegt 
wird, wovon rh% den höherwertigen Teil und rl“ den 


niederwertigen Teil der Zahl r enthält. 


fi$ Fehlerkennung (00 = alles klar) 
{28 Fehler im Klartext (z.B. file not found) 


#3$ Erweiterung der Fehlermeldung (beim Löschen von Dateien 


steht hier z.B. die Anzahl der gelöschten Files) 


Nun der Kommentar: 


63810 


63820 


65840 


65860 


63880 


62900 


Hier werden die Parameter r1% und r auf Gültigkeit 
überpruft. Sollte ein Wert ungültig sein, wird in fi$ 
ein Fehler sımulirrt. Sie sollten zweckmäßigerweise 
nach jedem Ansprung der Routine, das gilt auch für 
alle folgenden, stets auf val (41%)=@ abfragen, um sich 
vom fehlerfreien Ausgang der Aktıon zu überzeugen. 
über die Sekundaradresse 6, den 'Datenkanal', 
ubergeben wir anschliefend die Drivenummer (hier Mi, 
den Dateinamen, das Literal ΄1’ als | kennzeichen, daß 
eine REL-Datei eingerichtet werden soll, und 
anschließend die gewünschte Satzlange. 

r wird in zwei Bytes zerlegt. Sie sehen hier eine 
Nutzanwendung aus 2.2.1. Dieser Trick erspart die 
Funktion INT. 

Hier ‘blasen’ wir die Datei auf. indem wir über den 
Kommandokanal das kennzeichen 'D' tur "Satzzeiger 
positionieren übergeben, dann die Information, über 
welchen Kanal die Daten laufen, dann unseren 
Satzzeiger (r) und zum Schluß eine Besonderheit, 
namlich die relative Position innerhalb eines 
Satzes. Auch das ist möglich. Wir setzen diesen 
Bytezeiger jedoch immer auf 1, d.h. auf den Anfang des 
jeweiligen Satzes. 

Damit auch wirklich die Datei bis zur angegebenen 
Satznummer angelegt wird, muß wenigstens ein Zeichen 
übergeben werden. Wir wählen dazu das Zeichen pi 
(chr£ (255), welches uns bei  spatefen Lesezugriffen 
einen leeren Satz kennzeichnen soll. Das macht 
übrigens die Floppy auch automatisch mit allen 
dazwıschenliegenden Leersatzen. 


Durch Einlesen des Fehlerkanals erhalten wir Auskunft, 
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ob alles glatt verlaufen ıst. 
639208 Die Kanäle werden geschlossen. Hierdurch wird die 
floppyinterne Freispeicherverwaltung auf die aktuellen 


Werte gesetzt. 


ACHTUNG: Irgendwann zu Beginn Ihres Frogrammes muß einmal 


der Befehl OFENIS,8,15 erfolgt sein, damit der Kommando- und 
Fehlerkanal gehandhabt werden kann. Ein CLOSE1S sollte erst 
bei Froarammende erfolgen. 

Eingerichtet wäre die Datei nun. Sie möchten sie sicher auch 
gerne mıt Daten versehen. Im Grunde geht das nicht anders 
als bei einem Drucker, nur dafs Sie vorher den Satzzeiger 
übermitteln, damit die nachfolgenden Daten auch auf den 
gewunschten Flatz geschrieben werden. 

Damit sich das fur Sie auch recht komfortabel gestaltet, 
haben wir wieder ein kleines Unterprogramm vorbereitet, das 
wir Ihnen hier vorstellen wollen. Daran anschließend wieder 


die Varıablen und der Kommentar. 


635000 rem 

52081 remsdxdxxx3xx*x333X3* rel schreiben 33333 3 33€ € € € € € € X 
6.500? rem 

63010 ifrz$-dnf$thenée3040 

6:020 closeó 

638038 openó.8,6,"0:" "*dn£$:rz£-dnt 

65040 rh%=r /256:r1%=r-256%rh% 

63060 prınt#1S5."p"chr#(&ö)chr$(r1l%)chr$(rh%)chr# (1) 

65080 print#ö,r!t 

63100 ınput#15.f1#,.72%,73$% 


63120 return 


Zusatzlich zu den beim Einrichten beschriebenen Farametern 
trıtt hier noch die Variable 


r$ auf. Hierin werden die zu schreibenden Daten übergeben. 


62010 Um Zeit zu sparen, wird der open übersprungen, falls 


der letzte Zugriff auf dieselbe Datei erfolgt war. 

63020 Auch hier wird wieder der  kommandokanal und der 
Datenkanal geöffnet. Allerdings braucht beim öffnen 
einer bestehenden Datei das Literal '1' und die 
Satzlange nicht mehr übergeben werden, da die Floppy 
diese Information aus dem Inhaltsverzeichnis entnehmen 
kann. 

638048 Die Zerlegung von r 

63860 Positionierung des Satzzeigers und des Bytezeigers 

65080 Hier werden nun endlich die Daten geschrieben. 


63100 Abfrage des Fehlerkanals 


Jetzt haben Sie glücklich Ihre Daten auf ihren zugewiesenen 
Flatzen. 

Fehlt nur noch das Wiederhervorholen. Auch hier müssen Sie 
vor dem lesebefehl wieder den Satzzeiger laden, damit Sie 
auch die qewunschten Daten bekommen. Wie Sie sich denken 
konnen, haben wir auch hierfür ein Frogrämmchen. 


Hıer ıst es auch schon 


65500 rem 

55501 remdsJ333x3x3xx3x333*3x* rel lesen «333339 3 c € 3€ 9€ 9€ 3€ € 9E 3€ 3€ 9E 3€ 39€ 
63502 rem 

63510 ifrzf£-dn£$éthenó:540 

635520 closed 

625380 opend,8,6, "Ø: "+dn#t:rz$=dn# 

65540 rhZ-r/2956:rlZ-r-256*rhZ:r$£-"" 

63960 print#15,"p"chr#(&)chr#(rl%)chr$(rh%)chr# (1) 

65580 inputt&t15,f1*$,f2$,t2t$:1ff1$:»5"00"thenóo2720 

65590 ifrc%=-255thendS740 

62600 forli=1torc” 

62628 gettó.rif$:ifrif-""thenris$-chrt(0) 

6363 input#1S, #18, #28 F221 Ff F186 >"OO8"thenl l=rc%: goto6268d 
63660 r#=r$trit 

65680 nextli 

62700 ifleft#t(r#,1)=chr#$ (255) thent 1#="50" 


65720 return 


— 
Lal 
N 


63740 get#64,rif:ifri$=""thenrit=chr$ (DB) 

603760 inputti5,f1f$,f2*9$,f152:i1ff1$«^5»"U0"thenóo3700 
63770 ifri£$-chrf$(13)thenó3700 

63780 r$-r$*rift:gotoóo374Q0 


Die Variablen kennen Sie bereits aus den vorangegangenen 


Routinen bis auf: 


11 Laufvariable 

ri$ Interimsvariable zum Füllen von r$ 

rc% Anzahl der gewünschten Bytes aus dem Satz, wenn Sie 
weniger wollen, als der Satz lang ist. Wollen Sie den 
ganzen Satz, setzen Sie rc%=255, da die Routine sowieso 
nur bis CR (chr#(13)) liest, was das logische Ende des 


Satzes anzeigt. 


Hier der Kommentar: 


63528- 

653588 Gleiche Funktion wie in der  Schreibroutine, jedoch 
wird hier bereits der Fehlerkanal abgefragt, damit Sie 
merken, wenn Sie auf einen noch nicht angelegten Satz 
positioniert haben (f14#="50"). 

63600- 

63680 Die Bytes werden einzeln hereingeholt und auf rz 
addiert. Dieses Verfahren dauert zwar etwas Langer als 
mit INFUT#, hat jedoch den Vorteil, daß auf den 
Datentyp keine Rücksicht genommen werden braucht (wie 
in 2.1.4) und außerdem auch Sonderzeichen eingelesen 
werden können, bei denen jeder INPUT abbrechen würde, 
nämlich z.B. das Komma und chr#(B). 
r$ wird solange gefüllt, bis entweder das durch rc“ 
vorgegebene Limit erreicht ist. 

Selbstverständlich wird nach jedem Byte der 
Fehlerkanal abgefragt, um Lesefehler feststellen zu 
können. 

65788 Wie oben angemerkt, enthält ein zwar eingerichteter, 


Jedoch noch nicht beschriebener Satz als erstes 


Zeichen chr#(255). Damit Sie einem leeren Satz nicht 
auf den Leim gehen, wird in {18 der Fehler 5 (block 
not available) sımuliert. 

63740- 

65780 Falls rc%=255 ist, wird nur solange gelesen, bis das 


Endekriterium chr$(13) erreicht ist. 


Mit den vorgestellten drei Routinen können Sie nun schon 
fleißig auf REL-Files ‘herumgeigen’. So kompliziert ist es 
doch garnicht, oder"? 

Wie bei allem, so gilt auch hier: Frobieren geht uber 


Studieren. 


Abschließend noch einmal eine Zusammenfassung der 
Grundgedanken zu SEQ und ΠΕΙ anhand der Gegenuberstellung 
der gedachten Anwendungen Adressverwaltung und Datenkasse: 
Bei einer Adressdatei geht es neben der Speicherung 
wesentlich um das Wiederauffinden der zu eınem bestimmten 
Namen gehörenden übrigen Daten (wie Anschrift usw.). Wie Sie 
nun selbst beurteilen können, wäre es heller Wahnsınn, diese 
Daten in einem SEQ-File abzulegen, da das Hervorholen endlos 
dauern würde, da auch alle nicht gesuchten Einträge gelesen 
werden mussen. Sinnvoll ist hier einzig und allein eine 
Datei vom Typ REL. da hier jeder beliebige Eintraq anhand 
eines Verzeichnisses, welches Sıe sich angefertigt haben und 
das nur Satznummer und Nachnamen enthalten braucht, gezıelt 
und auf der Stelle eingelesen werden kann. 

Auf der anderen Seite wäre es unsinnig, Fortschreibedaten ın 
eine REL-Datei packen zu wollen, da der Flatzbedarf bei 
gleıchem Datenaufkommen höher als bei SEQ ist (die 
floppyinterne Verwaltung braucht bei REL-Files auch Flatz 
auf der Diskette) und evtl. der Satzzeiger vor jedem Zugriff 
verändert werden muß. was Zeit kostet. 

Eine Dateistruktur, die beider Vorteile glücklich vereint, 
sich mit vernünftigem Aufwand jedoch auf einer Μί 1541 nicht 
realisieren läßt, stellen wir Ihnen im nächsten Abschnitt 


vor. 


2.3.1.5 ISAM 


Um es aleich zu sagen: Diese Dateiart steht Ihnen auf Ihrer 
Floppy nicht zur Verfügung, jedenfalls nicht mit einer 
ahnlich bequemen Handhabung wie eine REL-Datei. 

Warum wır uns dennoch darüber auslassen” 

Wir sind der Meinung, daß die Kenntnis höherer Dateiformen 
nicht schaden kann. Sıe soll Sie darüberhinaus zu eigenen 
Versuchen anregen, die in außerst komfortablen 
Datelanwendungen ihren Niederschlag finden können. 

ISAM steht fur Indexed Sequential Access Method, was soviel 
bedeutet wie indizierte serielle Zugriffsmethode. 

Darunter konnen Sie sich sicher auch noch nicht viel mehr 
vorstellen. Die Komponente ‘seriell’ fallt allerdings sofort 
ins Auge. Hatten wir doch schon. Rıchtig, das bedeutet doch 
eins nach dem anderen oder so ahnlich. 

Was also soll an dieser Dateiform so exotisch sein? 

Sıe werden es nıcht glauben, aber der Bestandteil 
‘indiziert’ hat es in sich. Wieso. werden Sie gleich sehen. 
Führen wir uns doch nocheinmal den Aufbau einer REL-Datei 
vor Augen, wie sie das Betriebssystem der Floppy  VC-1541. 
aber nicht des C64 vorsieht (vergleichen Sie hierzu die 
entsprechenden "Kunstgriffe" zur Nutzunq der relatıven 
Dateien in unserem Floppy-Buch): 

Ein KEL-File besteht aus einer Anordnung von Datensätzen 
gleicher Länge, auf die mittels eines Schlüssels (haben wir 
gerade Schlüssel gesagt? Merken Sie sich den Ausdruck in 
diesem Zusammenhang), der in diesem Falle aus einer Nummer 
besteht, zugegriffen werden kann. Ein Zusammenhang zwischen 
Satznummer und Satzınhalt ıst nicht gegeben, d.h. aus der 
Satznummer als solcher können keinerlei Rückschlüsse auf den 
Satzınhalt abgeleitet werden. Der Zusammenhang wird erst 
durch ein Inhaltsverzeichnis oder dergleichen hergestellt. 
Beim fortlaufenden Lesen, d.h. ohne jeweils den Satzzeiger 
explizit zu versorgen, wird immer der Satz mit der 
nachsthoheren Nummer zur Verfügung gestellt ohne Rucksicht 
auf den logıschen Zusammenhang der Satzinhalte. 

So gesehen verhält sıch eine relative Datei auch seriell und 


aenauso ist auch der Terminus ‘seriell’ in einer ISAM-Dateı 


zu verstehen. 


Wenn wir ISAM einen eigenen Abschnitt widmen, muß es sich 
schon gründlich von den anderen  Dateiformen unterscheiden 
und das tut es auch. wenn es zunachst auch noch nicht so 
aussehen mag. 

Wir haben oben den Ausdruck 'Schlussel' so sehr betont, und 
genau das ist auch Aha-Erlebnis von ISAM. 

Wenn wir im Zusammenhang mit REL-Dateıen von einem Schlüssel 
sprachen, so ist das vergleichsweise so, als ob die Art 
eines Hausturschlussels aus der Hausnummer ersichtlich wäre. 
Jeder, der die Hausnummer kennt, gelangt auch ins Haus 
hinein. Von einem echten Schlüssel kann dabei natürlich 
nicht die Rede sein. Wir wollten damit nur verdeutlichen, 
daß man das Zugriffskriterium auch als Schlüssel sehen kann. 
Auf eine ISAM-Datei wird grundsatzlich über einen (echten) 
Schlussel zugegriffen. Hier reicht nicht das Wissen um die 
Hausnummer, sondern Sie müssen die Bewohner schon sehr genau 
kennen. 

Was heißt das? 

Der Schlussel zum Satz einer ISAM-Dateı ist regelmaßıg 
Bestandteil des Satzes selbst oder ein logischer Auszug 
davon. 

Nehmen wir wieder unsere Adressdatel. Wir haben in der 
REL-Beschreibung gesagt, daß wir mit einem Verzeichnis, das 
den Zusammenhang zwischen Satznummer und Nachnamen 
herstellt, auch den vollständigen Eintrag erfahren können. 
Rei ISAM könnte der Name selbst (oder die Postleitzahl oder 
...) das Zugriffskriterium sein. 

Wie geht das vor sich” 

Beim Einrichten einer ISAM-Datei müssen Sie nur außer der 
Satzlange auch die Fosition und die Lange des 
Schlusselkriteriums innerhalb des Satzes bestimmen. Es ist 
klar, daß Sıe die Satznummer nicht mehr benötigen, denn die 
Fosition des Eintrages innerhalb der gesamten Datei wird aus 


den zu schreibenden Daten selbst entnommen. 


Nun aber kommt der Clou: 


Wir kehren noch einmal kurz zu den REL-F11es zurück. 
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Angenommen, Sie gewinnen die Satznummer aus einer 
rechnerischen Behandlung des Satzinhaltes, beispielsweise 
aus asc (erstes Zeichen). Rein theoretisch kann hier ein Wert 
von B bis 255 herauskommen, den Sıe nun als Satznummer 
nehmen. Sicher haben Sie so eine gewisse Beziehung zwischen 
Satznummer und Satzinhalt hergestellt, Jedoch wırd dıese 
Beziehung Sie spätestens dann enttäuschen, wenn Sie einen 
neuen Satz einspeichern wollen, der mit dem gleichen Zeichen 
beginnt. Der alte Satzinhalt wird namlıch durch den neuen 
überschrieben, da auch die resultierende Satznummer die 
gleiche ist. 

Anders bei ISAM. Sicher kann auch hier innerhalb des als 
Schlüssel definierten Feldes die gleiche Zeichenkombination 
wiederholt auftauchen, wenn auch nicht so oft, wie in 
unserem Beispiel. Tritt ein solcher Fall auf, wird der neue 
Satz einfach zwischen den schon vorhandenen Datz mit 
demselben Schlusselfeldinhalt und dem Satz mit dem 
nachsthoheren Schlussel eingeschoben. 


Versuchen Sie das einmal bei einer REL-Datei'!' 


Auch beim fortlaufenden Lesen gibt es einen kleinen 
Unterschied: 

Es wird nicht einfach der Satz mit der nächsthöheren Nummer 
zur Vefugung gestellt, sondern der Satz mit dem logisch 
nachsthoheren Schlüsselfeldinhalt. 

Was bedeutet das konkret” 

Wieder zurück zur Adressdatei. Sie haben mit ISAM eine 
Adressensammlung aufgebaut, wobei Sie als Schlüssel die 
ersten zehn Stellen des Nachnamens definiert haben. Man sehe 
und staune: beim fortlaufenden Lesen der Sätze werden diese 
in alphanumerischer Reihenfolge der Nachnamen herausgegeben. 
In diesen zehn Stellen übereinstimmende Satze wer den 
unmittelbar aufeinanderfolgend ausgegeben. 

Also eine äußerst praktische Angelegenheit, bei der die 
Ausgabe gleich sortiert erfolgt. 

Sie können sich sicher vorstellen, daß selbstverstandlich 
fur diese logische Kettung der Schlussel ein gewaltiger 
Verwaltungsaufwand ın der Floppy getrieben werden muß. 


Deshalb ist diese Möglichkeit im  Hobbycomputerbereich auch 
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nıcht sehr verbreitet. 


Aber auch von ISAM gibt es noch eine Steigerung: 


Das Zauberwort heißt VSAM. 


2.222.292 kee Ae, 


Vertical Sequential Access Method. 

Ohne in aller Ausführlichkeit darauf einzugehen, sei hier 
soviel dazu gesagt, daß Sie es bei VSAM nicht nur mit einem 
Schlüssel, sondern gleich mit mehreren zu tun haben, von 
denen jeder als Zugriffskrıterium hergenommen werden kann. 
Sie haben ın einer mit VSAM aufgebauten Adressdatei den 
Nachnamen als erstes Schlusselfeld definiert und die 
Postleitzahl als zweites. 

Fortlaufendes Lesen bringt Ihnen, wie gehabt, die Eıntrage 
in Alphabetischer Reihenfolge der Nachnamen. Ein 
fortlaufender Zugriff über den zweiten Schlüssel stellt 
Ihnen jedoch die Sätze in numerischer Reihenfolge der 
Fostleitzahlen zur Verfügung. Ebensogut hatten Sie noch 
weitere Schlüssel definieren können wie z.E. Straßennamen 
und Telefonnummer. die dann allesamt als Zuqriffsargument 
zur Verfugung standen. 

Zur Information sei noch angemerkt, daß es fur den  CBHM80-7 
ein solches Zugriffssystem unter dem Namen SUPERERAM gibt. 
Nach diesem Ausflug ain die schöne Welt der gehobenen 
Datenverarbeitung wollen wir uns wieder auf den Boden des 
Machbaren begeben. 

Lesen Sie im nachsten Abschnitt, welcher 
Dateiverwaltungskomfort Ihnen auch mit der  VC1541 zur 
Verfügung stehen kann. "kann deshalb, weil doch einiger 
Programmieraufwand damit verbunden ist. Aber wie Sie uns 


kennen, haben wir auch dafür fertige Routinen. 


2.5.1.4 QUISAM 


Wir mochten Ihnen an dieser Stelle ein Daten- 
verwaltungssvstem vorstellen, das wir uns ausgeheckt haben 
und ın dem wir der Versuchung erlegen sind, die Vorteile der 
Dateiarten SEQ, REL zu vereinigen, ohne nach Möglichkeit die 
spezifischen Mängel einer jeden, die einer wirklich 
universellen Anwendung im Wege stehen, mit zu übernehmen, um 
so zu einer Art ISAM-Datei zu kommen. 

Daher haben wir auch den Namen: 

QUISAM soll nämlich, wie Sie sich sicher schon gedacht 
haben, QUasi-ISAM bedeuten. Im Folgenden wird sehr 
ausführlich beschrieben, wie QUISAM funktıoniert. Es 
empfiehlt sich in jedem Fall, nicht nur die Routinen 
abzutippen, sondern auch die einzelenen Abschnitte 
sorgfaltig durchzuarbeiten. Sie erhalten so einen erheblich 
tieferen Einblick nicht nur in  QUISAM, sondern in das 
wichtige Thema Dateiverwaltung überhaupt. 

Stellen wir die Vor- und Nachteile der zuvor erwähnten 


Grunddateiarten REL und SEQ noch einmal kurz heraus: 


REL Vorteil: 
Schneller Zugriff auf beliegige Sätze. 
Anderungs- und erweiterungsfreundlich. 
Nachteil: 
In der Regel ist die Datei größer, als den tatsächlich 
beleqten Satzen entspricht. 
Datensatze können nicht im nachhinein vergrößert werden. 


Zugriffskriterium Let nur die Satznummer. 


SEQ Vorteil: 
Schnelle Speicherung großer Mengen fortlaufend 
anfallender Daten. 

Dynamisch erweiterbar, d.h. Dateigröße wächst 
kontinuierlich mit den anfallenden Daten. 

Nachteil: 

kein wahlfreier Zugriff auf beliebige Daten innerhalb 
der Datei. 


Anderungsunfreundlich. 


[or 
{4 
ο 


Wie also soll nun eine Dateiarchitektur aussehen, die 


möglichst vielen Anforderungen genügt”? 


1. Auf jeden Fall wahlfreier Zugriff auf beliebige Sätze 
anhand einer Satznummer. 

2. Zugriffsmöglichkeit über einen echten Schlüssel. 

3. Dynamische Erweiterung der Datei mit wachsendem 
Datenanfall. 

4. Dynamische Erweiterung auch eines einzelnen Satzes. 

o9. Bei allem Komfort eine vernünftige Zugriffszeit. 


6. Einfache Anwendung von Basıc aus. 


Wie haben wir das realisiert” 

Wir bleiben beim Beispiel der Adressdatei, um die folgenden 
Ausführungen zu illustrieren. 

Zunachst geht es darum, einen sog. Stammsatz anzulegen. Das 
ist ein Satz, in dem die wesentlichen Merkmale des z.B. 
Kunden untergebracht sind. Dazu zählt außer dem Namen auch 
die Anschrift usw., also alle Angaben, die zur  Adressierung 
eines Briefes benötigt werden. 

Wie aber vergeben wir die Satznummer? 

Eine einfache aufsteigende Numerierung ist wegen der 
Notwendigkeit, nebenher eine Zuordnungsliste zu führen, 
unpraktısch. Also ermitteln wir aus dem Bereich des Satzes, 
der den Nachnamen enthält, eine Zahl. Wie wir es anstellen, 
eine möglichst orıginelle, also einmalige Zahl zu finden, 


zeigen wir Ihnen im nächsten Abschnitt. 
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2.3.1.4.1 DER HASHCODE 


Unter Hashcode ist eine Zahl zu verstehen, die aus einer 
Information gewonnen wird und den zielsicheren Zugriff auf 
diese Information ermöglichen soll. Was bedeutet das”? 

Das ist an einem einfachen Beispiel schnell erklärt: 

Nehmen wir einmal an, wir hätten alle Buchstaben des 
Alphabets in einer REL-Datei derart gespeichert, daß je ein 
Buchstabe einen Satz belegt. Um jetzt jeden Buchstaben mit 
einem Zugriff hervorholen zu können, müssen wir wissen, wo 
er steht. Wir haben deshalb beim Speichern die Satznummer 
aus dem Buchstaben selbst berechnet, nämlich mit der Formel 
r-asc (r$) 

wobei r$ unser Zeichen enthält. Wir bekommen für r eine Zahl 
zwischen 65 und 98 heraus. 

Woilen wir nun den Buchstaben wieder hervorholen, wenden wir 
die gleiche Formel an. Wenn wir mit dieser Zahl auf unsere 
Datei zugreifen, erhalten wir genau den Buchstaben wieder 
zurück. Natürlich ist ein Vorgehen in dieser Form unsinnig, 
da Suchargument und Information identisch sind. Sicher ließe 
sich das Verfahren auch auf eine Kombination von zwei 
Buchstaben ausdehnen. Die Satznummer wurde dabei aber schon 
vierstellig. Bei drei Buchstaben wurden wir schon den 
Bereich der gültigen Satznummern verlassen. Außerdem hat das 
Verfahren den Nachteil, daß der größte Teil der Datei 
ungenutzt bliebe, da schon beim ersten Beispiel mit nur 
einem Buchstaben die Sätze i bis 64 frei bleiben. 

Es geht also im Grunde darum, den Bereich optimal zu nutzen, 
bei größtmöglicher Originalität der Satznummern. 

Wie wäre es, wenn wir aus der Formel nur den 
niedrigstwertigen Zahlenteil entnehmen, also etwa so: 
r=vel(right$(str$(asc(r$)),1)) 


Fur r$-"a" erhalten wir r-5. Das trifft leider auch fur 
r$-"k" zu. 

Wir sehen. da3 das Verfahren für einen Buchstaben ungeeignet 
ist. Anders sieht es aus, wenn wir vier Buchstaben 
hernehmen. Wir erhalten dann eine Zahl zwischen Ø und 9999. 


r$="fpzf" beispielsweise wird Ø ergeben, und z.B. rt="eovo" 


ergıbt 9999. Das trifft auch für jede beliebige Hombination 
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aus den jeweiligen Buchstaben zu, aber da wir ja gewöhnlich 
mit "echten" Daten, also Nachnamen arbeiten, ist die 
Wahrscheinlichkeit einer originellen Zahl ungeheuer hoch. 
übrigens, falls Sie die obige Formel mit mehr als einem 
Buchstaben versuchen sollten, bekommen Sie immer nur eine 
zweistellige Zahl zurück. Wie eine mehrstellige Zahl 
gebildet wird, werden wir Ihnen noch zeigen. 

In der Regel werden zur Bildung eines Hashcodes fünf Zeichen 
der Information herangezogen. Welche fünf Stellen, das muß 
der Anwender entscheiden, da nur er wissen kann, welches 
Feld eines Datensatzes sich am meisten vom gleichen Feld 
eines anderen Satzes unterscheidet. Im Falle der Adressdatei 
ware es natürlich wenig sinnvoll, das Feld fur die Anrede 
herzunehmen. 

Nun tritt ein weiteres Problem auf: 

Bei einem funfstelligen Schlüsselfeld erhalten Sie auch eine 
fünfstellige Zahl, die jedoch die erlaubten Grenzen für die 
Satznummer sprengen könnte. Selbst wenn das möglich wäre, 
ist es dennoch nicht sinnvoll, die Datei wirklich so groß zu 
machen, denn wer hat schon 99999 Adressen zu verwalten. 

Es gilt also, eine Zahl zu ermitteln, die sowohl originell 
ist, als auch den erlaubten Bereich nicht nur nicht wer lant, 
sondern darüberhinaus sich sogar nur in einer Größe bewegt, 
die auch der tatsächlich anfallenden Menge von Adressen 
entspricht. 

Was nun”? 

Nehmen wir an, bei uns würden etwa 188 Adressen anfallen. 
Damit ist schon klar, daß dıe Zahl sich im Bereich 1-100 
bewegen muß. 

Trotzdem ermitteln wir zunachst eine fünfstellige Ziffer aus 
den ersten fünf Zeichen des Nachnamens. 

Jetzt geht es los: 

Sicher kennen Sie die Funktion a=rnd(x). Hierbei kann a 
einen Wert im Bereich B\aii annehmen. Wollen Sie aber eine 
Zufallszahl zwischen 1 und 49 (für den Lottospieler), ist 
die Formel 

aZ=rnd (x) #58 

anzuwenden. 


Wir brauchen eine Zahl zwischen 1 und 100. Also müssen wir 
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zuerst aus unserer funtstelligen Zahl eine Zahl @« 71 machen, 
wobei die Anzahl der sıgnifikanten Stellen möglichst groß 
sein soll, damit wır unseren Bereich ausfüllen können. 
Wirden Sie beispielsweise die aus den fünf Zeichen 
ermittelte Zahl einfach durch 188 teilen, so wären die 
resultierenden Nachkommastellen "langweilig’ und damit auch 
die Satznummer. 

Fin Beispiel: 

Sie haben die Zahl 75468 ermittelt. Diese teilen wir durch 
108. Heraus kommt 754,6. Sıe trennen dıe Nachkommastellen ab 
und multiplizieren diese wieder mit 100. Heraus kommt ð, 
also eine zwar brauchbare Satzzahl, dıe jedoch den Nachteil 
hat. 0804 sie viel zu oft vorkommen kann, nämlich bei allen 
zahlen, die mit ...60 enden. Teilen wir aber 75468 durch 
121. so ergibt das 747,128712. Das sieht schon ganz anders 
aus. Trennen Sie dıe Nachkommastellen ab und multiplizieren 
Sie diese mit 100. Entnehmen Sie dem Ergebnis den 
Integer-Teil, so ergibt das die gesuchte Satznummer 12. 

Nach dieser Formel bekäme der Herr Schmitz die Nummer 5, der 
Herr Schulz die Nummer 29 und Herr Muller 83. 

Sie wollen wissen, wie wir ausgerechnet auf 101 als Teiler 
gekommen sind”? 

Nun, 181 ıst eine Primzahl (eine Zahl, die sich nur durch 
sich selbst und durch 1 geteilt eine ganze Zahl ergibt), und 
Frimzahlen haben als Teiler die Eigenschaft, dafs sie ‘wuste’ 
Zahlen mit vielen Nachkommastellen erzeugen. 

Der langen Rede kurzer Sinn: 

Als Faustregel soll gelten, daß als Teiler eine Frimzahl 
genommen wird, dıe nächstgrößer als die beabsichtiqte 
Satzmenge fur die Datei ist. Für eine Datei mit 1000 Sätzen 


ware der Teiler 10079. 


Natürlich haben wir Ihnen das etwas mühsame Geschäft des 
Hashcode-Bildens wieder mit einer kleinen Routine 
abgenommen. 

Alles, was sie zu ihrem Ablauf benötigt, ist der 
vollstandige Datensatz, die Lage des Schlusselkriteriums 
(beim wievielten Zeichen des Satzes beginnt der Schlussel?) , 


die Länge des Schlussels, die Primzahl und die Dateigröße. 
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Da diese Farameter (mit Ausnahme des Datensatzes) fur die 


aesamte Behandlungsdauer der Datei festlieqen, brauchen sie 


auch nur einmal definiert zu werden. 


Hier nun das Frogrammchen: 


58800 rem 


ΞΩΘΟΊΙ remsddssa333xx«x* hashcode bilden 333333 (CX t- 
28802 rem 

98820 hc$=midt (ad#,ak%,ahA)+" h 

98840 hc-0:for11-0to4 


398860 hc-hc-*valíright$í(str£Ó(ascíimid£(hct.1141,12020)2.10)*10^11 
398880 nextli1 


38900 hc-intt:(hc/ap-intíhc/ap);7*gab)-«2 
38920 return 


ab 


Variablen sind wie tolat belegt: 


muß den vollstandigen Datensatz enthalten. 

enthalt die Laae des Schlüsselkriteriums. 

enthalt die Lange des Schlussels. Damit keine 
Mißverstandnisse aufkommen: der Hashcode wird ın dieser 
Routine immer über fünf Zeichen gebildet, unabhängig vom 
Wert in qh*. Die echte Länge erhalt jedoch Bedeutung im 
Zusammenhang mit unserer WUISAM-Datei. In unserem 
Beispiel soll der Schlussel die gesamte Länge des 
Nachnamenfeldes umfassen, namlich 12 mit der Lage 
qk*-16. 

sollte die maximale Dateigröße (wieviele Sätze soll sie 
hochstens umfassen), und 

die besagte Frimzahl enthalten. 

enthalt die Zeichenfolge. die zur Bildung der Satznummer 
heraenommen wird. 


endlich enthalt die fertige Satznummek. 


ts folat der kommentar. 
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58828 hc# wird aus Οά4Σ mit den Farametern gk% und ob 
isoliert und auf funf Zeichen aufgefüllt, falls qh% 
kleiner als fünf ist. 

58849- 

58880 In dieser Schleife wird die funfstelliae Zahl 
gebildet. So kriminell die Formel auch aussehen mag, 
so einfach ist sie: 

Von links beginnend, wird von jedem Zeichen der 


asc-Wert gebildet, dessen rechte Zitfer abgetrennt und 


mit 10. potenziert mit der Laufvariablen 11; 
multipliziert und diese Zahl fortlaufend auf hc 
addiert. 


Das Ergebnis ist eine bis zu fünfstellige Zahl. deren 
Reihenfolge der Ziffern umgekehrt ist, wie eigentlich 
nach der Zeichenfolge zuerwarten ware. Das liegt 
einfach daran, daß wir zwar links im Schlüsselfeld 
beginnen, jedoch mit der kleinsten Fotenz von 19 als 
Multiplikator anfangen. Der Brauchbarkeit tut das 
keinen Abbruch. 

98900 Da als Hashcode ohne weiteres die Zahl Null auftauchen 
kann, diese jedoch als Satznummer nicht erlaubt ist, 
wird hc gleich um zwei erhöht, d.h. Ihr erster Block 
beainnt bei der Satznummer zwei. Das haben wir deshalb 
so eingerichetet, weıl Satz eins für die Verwaltung 
der  QUISAM-Datei  benotigt wird. Hier werden z.B. 
beschreibende Parameter wir cab, αρ. ar, ah% usw. 
abgelegt. was Sie später der Mühe  enthebt, beim 
Eroffnen einer QUISAM-Datei diese Werte aus dem 
Gedächtnis zu versorgen, was Ihnen bei mehreren 


Dateien unterschiedlichen Formats schwerfallen dürfte. 


Mit dieser Routine und den Unterprogrammen zur Handhabung 
von REL-Files können Sıe schon eine einfache 
Adressverwaltung aufbauen. Wenn Sie zur Satzsuche denselben 
Algorhitmus wie beim Schreiben benutzen, werden Sie den 
vollständigen Satz durch einfaches Angeben des Nachnamens 
frei Haus gelıefert bekommen. Wenn Sie zur Suche nur den 
Nachnamen in gd an die Routine übergeben, müssen Sie 


naturlich qkZ=1 setzen. 


Spielen Sie ruhig ein wenig damit. Wir sind sicher, daß Sie 
Ihren Spaß daran haben werden. Gelegentlich stoßen Sie 
darauf, daß fur unterschiedliche Namen dieselbe Satznummer 
berechnet wurde. Das Let normal, aber aus dıeser 
Verlegenheit werden wir Ihnen ım nachsten Abschnitt 
heraushelfen. Eın Tip: Je größer Sie die Datei wählen, umso 


seltener kommt es vor. 


3.1.4.2 DATEIGRÖSSE 


Ein außerst wichtiger Punkt bei der Anlage von Dateien sind 
Betrachtungen uber ihre Grofie. Wir wollen  uberlegen. was 
dazu geführt haben kann, daß Dei einem Vorgehen, wie ım 
vorıgen Abschnitt beschrieben, die gleiche Satznummer unter 
Umständen auch mehrere Male auftreten kann. 

Gewifj tragt dazu bei. daß eine aus der Information gewonnene 
zunachst funfstellige Zahl auf eine Zahl mit weniger Stellen 
zurechtgestutzt wird, um eine Satznummer entsprechend Ihrer 
Dateigröße zu erhalten. Da dabei notwendigerweise Stellen 
abgeschnitten werden, kann der Fall auftreten, daß dıe 
übrigen Stellen bei ursprünglich unterschiedlichen 
Schlüsselbegriffen gleich sind. Daher auch der Tip, die 
Datei zu vergrößern, damit dıe Satznummern über einen 
größeren Bereich gespreizt sind. 

Das hilft sicher auch anfangs, jedoch handeln Sie sich einen 
gravierenden Nachteil ein: Es bleiben mehr Sätze in der 
Dateı frei, was die reine Flatzverschwendung bedeutet. 

Noch etwas kommt hinzu: Da von den Dezimalaquivalenten der 
Schlusselzeichen nur deren letzte Stelle hergenommen wird, 
tritt auch hier schon ab und zu eine übereinstimmung der 
resultierenden Zahl bei unterschiedlichen Schlusselbegriffen 
auf. 

Was also ist zu tun? 

Eine Möglichkeit wäre die, daß Sie, wenn festgestellt wird, 
daß eine zu beschreibende Satzposition bereits belegt ist, 
einfach die nächsthöhere nehmen und so fort. bis Sie einen 
treien Satz finden. 


Das macht aber auch das Wiederauffinden schwieriger, weil 
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Sie jetzt damit rechnen müssen. daß Sie beim Zugriff mit dem 
Hashcode nicht dıe Information bekommen, dıe sie eigentlich 
wollten. 

Sie müssen dennoch zunachst den Satz lesen, dessen 
Schlüsselbegriff mit dem gesuchten vergleichen und bei 
Unaleichheit den nachsthoheren Satz lesen, bis Sie entweder 
den Schlussel gefunden haben oder bis Sie auf einen freien 
Satz stoßen, was bedeutet, daß der gesuchte Begriff nicht 
vorhanden ist. 

Ein solches Vorgehen ergibt immer noch eine respektable 
Zugriftsaeschwindigkeit, gemessen an der Suche aus einem 
SEQ-File. Es ist je nach Belegungsdichte der Datei mit bis 
zu sechs Zugriffen zu rechnen, bis der gesuchte Satz 
gefunden ist, was ganz schon schnell geht, wenn die Floppy 
einmal ın Schwung ıst. 

Ein Froblem ıst aber damıt ımmer noch nicht erschlaaen, 


namlich das der unnötigerweise freien Satze. 


Folgende überleaung soll Sie auf die rıchtige Spur führen: 
Da Sie ja ohnehin mit mehreren Zugriffen bis zum Erfolg 
rechnen mussen, warum die qanze Datei nicht gleich kleiner 
machen, und zwar so klein, daß sie auf jeden Fall moglichst 
voll wird, also nur noch wenige freie Satze aufweist. 

Ja. werden Sie einwenden, aber wohin mit den Satzen gleichen 
Hashcodes? 

Ganz einfach: Für diese wird eine zweite Datei angelegt. in 
die sie der Reihe nach kommen. 

Diese überlegung hat viel für sich, denn es ist absolut 
gleichgültig, ob Sie nach dem ersten Mißgrift von da an in 
der gleichen Datei Satz fur Satz absuchen müssen, bis Sie 
den gesuchten Schlussel gefunden haben, oder in einer 
anderen. 

Einleuchtend, nicht wahr” 

Es gibt dabei aber noch einen weiteren Vorteil: Diese 
überlaufdatei lassen Sie immer gerade nur so aroß werden, 
wie es der tatsachlıchen Zahl der Einträge entspricht, d.h. 
immer. wenn ein uüberlaufsatz (ein Satz, der in der 
Frimardatei keinen Flatz mehr findet, weil die Position 


schon besetz ist) auftritt. wird die Sekundardatei gerade um 
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einen Satz vergrößert. 

Nun haben Sie alles, was Sie brauchen: Eine ziemlich 
kompakte Frimardatei, in der Sie auch ab und zu sofort 
fündig werden, und eine dynamisch wachsende Sekundärdatei, 
ın der der Rest steht. 

Natürlıch sollten Sie. wenn Sie sich bei der kalkulation der 
anfallenden Daten verschätzt haben (das merken Sıe an 
erhöhten Zuqriffszeiten), die Frimardatei vergrößern, wobei 
Sie aber unbedinat die alten Daten unter Zugrundelegung der 
nun anderen Formel zur Hashcodeermittlung in die neue, 
größere Datei überführen. Es geht also auf keinen Fall, daß 
Sie einfach die bestehende Datei vergrößern und neue 
Einträge mit einer anderen Formel vornehmen. Sie würden die 
alten nicht mehr wiedertinden, da aufgrund der neuen Formel 


auch andere Satznummern auftreten. 


Wie Sıe sicher schon gemerkt haben, verbirgt sıch in diesen 
Uberlequngen in grober Fehler. 

Gehen wır einmal davon aus, daß die Sekundardatei noch 
völlig leer ist. Nun wollen Sie einen Eintrag machen, finden 
den Flatz in der Frimardatei belegt und schreiben ihn 
deshalb in die Sekundärdatei. 

Spater wollen Sie diesen Satz wieder lesen. Sie ermitteln 
die Satznummer und aqreifen damit zunachst auf die 
Frimardatei zu. 

Ein Schlusselverqleich zeigt Ihnen, daß Sie den falschen 
Satz erwischt haben. Also lesen Sie den ersten Satz aus der 
Sekundardatei. Aha, dieser ist es. 

Alles bestens, oder = 

Sie wollen einen weiteren Satz mit einem total anderen 
Schlussel und anderer Satznummer ın die Frimardatei 
schreiben, finden jedoch auc diese Fosition besetzt. Also 
hinein damit in die Sekundärdatei. 

So geht es noch einige Male. 


Jetzt versuchen Sie einmal, den zuletzt  geschriebenen Satz 


wieder  hervorzuholen. Wenn Sie zuvor hundert Eintrage 
vorgenommen haben, die allesamt in der Sekundardatei 
gelandet sind. durfen Sie auch zunachst hundert  Satze 


uberlesen, bevor Sie fündig werden. 


Tatsachlich, das stimmt, aber es war doch vorhin die Rede 
von maximal sechs Zugriffen! 

Stimmt auch, denn damit es nicht allzu einfach bleibt, 
bedienen wir uns nun eines kleinen Tricks, der es Ihnen 
ermöglicht, die Sekundärdatei erst ab dem Eintrag lesen zu 
müssen, der als erster mit der Satznummer in der Primardatei 
korrespondiert, d.h. der Eintrag, der beim erstmaligen 
überlauf der ın Rede stehenden Satznummer aufgetreten ist. 
Das klingt schon besser, aber wie soll das gehen? 

Ganz einfach: Sie reservieren in jedem Satz der Frimärdatei 
einen Platz, auf dem beim Auftreten des ersten überlaufs für 
diesen Satz einfach die Satznummer des Folgeblockes (das 
wird in der Regel der erste freie Satz der  Sekundardatei 
sein) eingetragen wird. 

Suchen Sie nun einen Begriff, so entnehmen Sie bei einem 
Fehlschlag in der Frimärdatei einfach aus der bestimmten 
Stelle die dort eingetragene Zahl und greifen damit auf die 
Sekundärdatei zu. Damit haben Sie sich eine qewaltige 
Sucherei erspart. 

Um das Maß nun restlos voll zu machen, erhält jeder Satz der 
Sekundärdatei auch noch eine Kennfeld, aus dem hervorgeht, 
wo ein evtl. weiterer Folgeblock in derselben Datei zu 
finden ist, denn es muß durchaus nicht immer der nächste 
sein, wenn inzwischen weitere überläufe anderer Frımärsätze 
aufgetreten sind. 

Als Kennzeichen, dafi keine weiteren überlaufsätze für den 
gleichen Hashcode existieren, tragen Sie in das kennfeld 
eine Null ein, bei deren Auftreten Sie die Suche beenden 


konnen, denn dann ist der verlangte Eintrag nicht vorhanden. 
Wir wissen, daß sich das alles furchtbar trocken anhört. 


Deshalb finden Sie in Abb. 2.3-1 ein Schema, wie Sıe sich 


das vorzustellen haben. 
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PRIMARDATEI SEKUNDARDATEI 


Aus dem Hashcode 


gewonnene 

Satznummer kennfeld Satznummer kKennfeld 
: - Daten : : DatEn 
2 4 Schmitzi at 3 Müller2 
3 3 9 Müller3 
4 > Meier 1 4 6 Schmitz2 
9 3 2 Meier? 
6 6 @ Schmitzs 
7 7 Schultzi 7 8 Schultz2 
8 8 Q Schultz} 
9 
10 2 Mulleri 

Abb. 2.3-1 
Sie können jetzt deutlich erkennen, daß es in der 


Frimardatei wohl noch einige Lücken gibt, die Sekundärdatei 
jedoch gerammelt voll ist. da sie ja erst bei tatsachlıchem 
Bedarf erweitert wird. 

In beiden Dateien ist der erste Block nicht belegt. Den 
brauchen wir später, um ein wenig Verwaltung treiben zu 


können. 


Jetzt werden wir dem i ncch das Tupfelchen aufsetzen: 

Ab und zu kann die Notwendigkeit auftreten, eınem Eintrag 
noch einige Anmerkungen hinzuzufügen. Sollte es sich bei den 
Adressen um Ihre Kunden handeln, würden Sie sicher gerne 
noch weitere Informationen hinterlegen, etwa in der Art, ob 
es sich um einen unsicheren kantonisten handelt oder ob er 
immer Vorkasse leistet oder ob er Rolls Royce fahrt usw. 

Es ware natürlich Unfua, wenn Sie solche Einträge bereits 
bei der Satzaroße berucksichtiqten, da derartige Eıntrage 


sicher nicht bei allen Hunden erfolgen und auch die zu 


erwartende Lange nicht vorhersehbar ist. Die 
Flatzverschwendung wuchse ins Gigantische. 

Was liegt nach den bisherigen Erfahrungen näher, als dafür 
eine dritte Datei mit geringer Satzlange anzulegen. Der 
Dateiaufbau hat das gleiche Schema wie die Sekundardatei, 
also Erweiterung nur bei Bedarf. Die Satzlange ist so zu 
wahlen, daß Bemerkungen durchschnittlicher Lange (wie grof3, 
das mussen Sie wissen) gerade Flatz haben. 

Auch der Zugriff erfolgt auf die gleiche Weise, wie der 
Zuaritff auf die Sekundardatei. Dazu mussen Sie aber in den 
Stammsatzen ein weiteres Hennfeld reservieren, aus dem 
ersichtlich ist. ob (kennfeld B) und wenn ja, wo die 
Bemerkungen in der dritten Datei stehen. 

Die Verkettung der zu einem Stammsatz gehörenden Bemerkungen 
untereinander erfolat wiederum so wie bei der Sekundärdatei. 
Sollte ein Eıntrag länger als die definierte Satzlänge 
werden, hangen Sie einfach einen Folgesatz an. 

Die Verkettung hat außerdem den Vorteil, daß Bemerkungen zu 
einem bestimmten Stammsatz auch noch Jahre später angehängt 
werden können. Sıe finden sie alle wieder. 

Die neue und nunmehr endgultige Gesamtstruktur finden Sie in 
der Abb. 2.3-2 illustriert. 

Sie werden zuaeben, daß es universeller und komfortabler 
kaum geht. 

Der Schritt zu einer selbstverwaltenden OUISAM-Datei ist nun 
nur noch ein kleiner. 

Das erste Frogramm, welches wir Ihnen in diesem Zusammenhang 
vorstellen wollen, ist das Einrichten einer 
QUISAM-Anwendung. Das erfordert auch schon die größte 
Aktıvitat Ihrerseits, denn von da an geht alles (fast) 


automatisch. 


FRIMARDATEI 
Satz Folge.se Folge.ex Ifd.Nr. Daten 


2 2 2 [^ Mulleri 
4 e = Φ Schultzi 
15 4 8 8 Hanseni 


SEKUNDARDATEI 
Satz Folge.se Folge.ex Ifd.Nr. Daten 


1 & 

Z 3 3 1 Meier 1 
= KM 2 Meier z 
4 St 7 1 Hansen. 
I 10 Pn Hansen3 


BEMERKEUNGEN 


Satz Folge.ex Daten 
1 12 
2 0 Tel. 697784 
4 hubsche Tochter 
4 Φ zum Essen einladen 
5 8 schuldet DM 190 
6 7 am Z2.12. besuchen 
7 0 Blumen mitnehmen 
8 W Aschenputtel 
5 0 Kellner im Ochsen 
10 11 am 20.1. Geburtstag 
11 Ὁ nicht vergessen! 


Das Froaramm sieht so aus: 


279000 rem 

ΞΟΦΩΙ remssd33348393 anlegen quisam JJ 9 3 C (€ (€ 
99002 rem 

99020 printchr#(147)"anlegen einer quisam-datei" 
998020 print 

99040 input"dateiname (max. 8 zeichen)";qn# 
59050 print:iflen(qn#) >8thensS9040 

99060 input"wieviele saetze ca."sqb 

59070 print 

99080 input"laenge stammsatz (min.4, max.2497)":ql% 
59090 print:ifgl7Zi4o0rgq172249thenS59980 

59100 input"laenge anhangsatz (min.2, max.252)":qx7% 
39110 print:ifgaxZizorqxs*5252then5910U00 

59120 input"startposition schluessel":qk% 

37138 print 

299140 input"laenqe schluessel'":ah% 

39150 if (gk%+tgh%-1) >qgl%thenS571208 

599160 ab=int (qb/&) +1: αβξαῦς 

57188 ifgqpandithen59200 

239190 qp=qpt+l:qx=2:qQqs=2 

59200 open15,8,15 

299210 11=3 

597228 ifap/l1=int (qp/11) thenqp=qpt2: gotos9210 
99240 12=int (gp/11):11=11+1:1f11<12thenS9220 
99260 dn$=qn$+".pr":r=qb+2:r1%=ql%+6: gosub6&3808 
59288 r#=chr$(gl%)+chr$(gqx%)+chrt(gk%) +chr#t (gh%) 
99300 rh%=9gb/256:r1%=gb-rh%*25 

99320 r$=rt+chr#(rh%)+chr#(r1l%) 

39340 rh%=gp/256:r1l%=gp-256*rh% 

99368 r#=rt+chr#(rh%)+chrt(r1l%) 

99:280 r=1: gosub6é3000 

59400 r*=chr#(B) +chr$(B) +chr$(B) srt=r$+rFs 

99460 print#15."p"chrt (6) chrs (2) chr#(@)chrs (1) 
39480 forli=2togb+1 

99500 print#ö6,r$:nextlii:closeö 

99520 dnf$-qn$t*".se":r-zi:rlZ-glZt6:gosubó3800 


79540 rt=chr#t(B) +chr#t (2) : gosub6é3008 
99560 dn$-qn£$-".ex"'":rlZ-axZ-435:gosubóo38900 
599580 gosub6é300@:return 


In bewährter Form wollen wir zuerst die Variablen erläutern: 


anf 


Name der QUISAM-Datei. Die Begrenzung auf acht Stellen 


verlangen wir wegen der vom Progr amm automatisch 
angetügten Anhänge an den Namen: "Or für die 
Frimardatei, ".se" für die Sekundardatei und  ".Ex" für 


die Bemerkungen. 


qb von Ihnen geschätzte Anzahl der benötigten Sätze. 

ql% Lange eines Stammsatzes. Bei einer Adressdatei der von 
uns vorgeschlagenen Form wäre das 67. 

αχ Lange eines  Bemerkungssatzes. Das wissen Sıe sicher 
besser als wir. 28 wäre ein guter Wert. 

gak% Diese Variable kennen Sie schon aus der Hashcoderoutine. 
Hiermit geben Sie an, an welcher Position des Satzes der 
Schlüsselbegriff zu finden ist. In unserem Adressformat 
ist das 164. 

ah“ ist die Lange des Schlussels, bei uns 12. 

Op ist der aus der Satzanzahl resultierende Frimfaktor und 
wird von der Routine selbst berechnet. 

Und so funktioniert es: 

5902- 


299190 Die beschreibenden Parameter werden im Dialog von 


Ihnen abgefordert. 


99160 Wir unterstellen einfach. daíi Sie sich mit einem bis 


zu sechsfachen  Suchzugrifft zufriedengeben. Deshalb 
teilen wir zur Ermittlung der Größe für die 
Frimärdatei einfach die von Ihnen angegebene Satzzahl 
durch sechs. Sollten Ihnen mit der Zeit die Zugriffe 
zu lange dauern, passen Sie den Teiler einfach Ihrem 
Geschmack an. 

Die so gewonnene Zahl wird um eins erhöht, da wir ja 


auch noch einen Satz für die Verwaltung der Datei 


brauchen. 

59180- 

59240 Hier wird die Frimzahl αρ berechnet. Es wird, grob 
gesagt, einfach probiert, ob sich die Zahl (wir 
beginnen qb*1) durch eine andere Zahl (hier beginnen 
wir mit 2) ganzzahlig teilen läßt. Ist das der Fall, 
so ist es keine Frimzahl und wir probieren es mit der 
nächstgrößeren Zahl. Der Versuch der Teilung wird 
solange fortgesetzt, bis ein Limit erreicht ist, bei 
dem wir sagen können, daß die nun folgenden Zahien als 
Teiler auch nicht mehr infrage kommen. 

59268 Die Primardatei wird in der vollen Länge angelegt. 

59280- 

39580 Der erste Datz der Primardatei wird mit den 
beschreibenden Parametern geladen. Das enthebt Sie 
später der Mühe, diese Variablen im Gedächtnis zu 
behalten. 

59400- 

59588 Jeder Satz der Primardatei wird mit sechs binären 
Nullen beschrieben. Das wird später gebraucht, um 
einen leeren Satz zu erkennen. 

59520- 

39580 Die Sekundardatei und die Anhangdateı werden je mit 
dem Satz 1 angelegt. In diesem Satz wird die Nummer 
des ersten freien  Satzes (merken Sie, wo es lang 


geht?), in diesem Falle 2, hinterlegt. 


Wir fahren am besten gleich mit dem Programm zur Eröffnung 
einer bestehenden QUISAM-Datei fort, damit Sie sehen konnen, 


wozu die ersten Sätze jeder Datei nutze waren. 


58000 rem 


98001 remdsdsx3x*3x*x** oeffnen quisam *JJjd39 (6 (X € 


98002 rem 

98010 closeé:closel5:openi5,8,15:rz¢="" 

98020 dn£$-gn$-".pr":r-i:rc*-8:gosubóo 3500 

98040 al%=asc (left$(r$,1)) 

98060 qx^-asctimids$(r$,2,.1)) 

98080 ak%=asc (mid$(r$,3,1)) 

98100 qh%=asc (mid$(r$,4,1)) 

98120 qb=asc (midf(r$,5,1))*25ö6+tasc (mids (r#,6,1)) 
98140 qp=asc (mid$(r$,7,1))*256+asc (right$(r#$,1)) 
398160 dn$-qn$-«".se":rcZ-2:gosubó3500 

98180 qs-asc(leftf$(r$,10)*256*asc(right£tír$.1)) 
98200 dn$-qn$-".ex":gosubes500 

98220 gx=asc (left#(r$,1))*256+asc (right#(r$,1)) 
58248 return 

98500 rem 


98501 remdxxxxxxxxxx*X schliessen quisam 333339 0€ 
985302 rem 
298320 closeó:return 


Die Variablen: 


qn$ ist die einzige Variable. mit der diese Routine versorgt 


werden muß. Sie soll natürlich den Dateinamen enthalten. 
kommt neu hinzu. Hierin wird die Nummer des ersten 
freien Satzes der Sekundärdatei hinterlegt. Diese Zahl 
stammt aus deren Satz 1. 

hat die gleiche Bedeutung wie qs, Jedoch auf die 


Bemerkungsdatei bezogen. 


Nun der Kommentar: 


3801 0-- 


28140 Die ersten acht Bytes des ersten Satzes werden aus der 


Frimardatei gelesen. Sie werden den  beschreibenden 
Variablen zugeordnet, die ja beim Anlegen der Datei 


dort hinterlegt wurden. So ist sichergestellt, daíi zur 


Bearbeitung einer QUISAM-Datei immer auch die 
Farameter hergenommen werden, die auch für den Aufbau 
maßgebend waren. 
58160- 

58180 Die Nummer des ersten freien Satzes wird aus der 
Sekundärdatei geholt und qs zugeordnet. 

58200- 

58228 Wie oben, jedoch für Bemerkungsdatei und qx. 

38300- 

58328 Der Datenkanal wird einfach hier an zentraler Stelle 
geschlossen, damıt Sıe auch nur hier zu andern 
brauchen, falls Sie bei den REL-Zugriıffen die Ilfn 


geändert haben. 


So, nun haben Sie eigentlich schon alles, was Sie brauchen, 
um die bisher besprochenen Dinge durchführen zu können. 

Ihre Arbeit besteht nun nur noch darin, die bisher 
vorgestellten Routinen, angefangen von der Bildschirmmaske 
bis hierher, sınnvoll miteinander zu verknüpfen und mit den 
benötigten Variablen zu versorgen. 

Sollte man meinen. Frobieren Sie ruhig ein bischen, Sıe 
werden schon noch darauf kommen. 


σα) EE AE 


Wie stellen Sıe es denn an, wenn Sie einen Satz. 
gemeinerweise ausgerechnet aus der Sekundardatei, nicht mehr 
benotigen und ihn loschen wollen? 

Was aeschieht in einem solchen Falle mit den 
Verkettungsfeldern? 

Es wäre kein feiner Zug von uns, wenn wir Sie mit diesem 
Problem alleine ließen. Wer hätte denn auch gedacht, daß, 
nachdem alles so herrlich lauft, ausgerechnet das Löschen 
für überraschungen sorgt. 

Sie sehen, das Thema QUISAM ist lange noch nicht 
abgehandelt. 


Es kommt noch bunter. 
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2.3.1.4.3 EINTRAG LGSCHEN 


Das Problem ist immer dasselbe, und die Lösung gemeinhin 
auchs 

Sollen bestimmte Daten aus einer SEQ-Datei entfernt werden, 
ist allgemein das Vorgehen so, daß die alten Daten ohne die 
zu löschenden in eine neue Datei überführt werden. Beispiel: 
In einer sequentiell organisierten Adressdatei mit 9500 
Adressen sollen 6 Einträge gelöscht werden. Da bleibt Ihnen 
nichts anderes übrig, als die Datei komplett Byte für Byte 
zu lesen, jeweils zu prüfen, ob der gerade gelesene Satz zu 
löschen ist und dabei alle nicht zu löschenden Sätze in eine 
neue Datei zu übertragen. Anders läßt es sich bei einem File 
dieses Typs auch kaum machen. 

Anders bei einer REL-Datei. 

Hier kann man einen zu löschenden Satz einfach durch 
Hineinschreiben eines kKennzeichens für ungültig erklären. 
Welches Zeichen das sein soll, liegt bei Ihnen. 

So weit, so gut. 

In der Regel führen aber neue Einträge zur Erweiterung der 
Datei, es sei denn, Sie machen sich die Muhe und 
durchforsten vorher alle Sätze nach einem gelöschten 
Eintrag, wohin Sie dann die neuen Daten schreiben können. 
Dieses Verfahren spart zwar Flatz, womit Sie bei der Floppy 
1541 ohnehin nicht so reichlich gesegnet sind, aber es ist, 


abhängig von der Größe der Datei, extrem zeitaufwendig. 


Wie nun haben wir das bei QUISAM gelöst” 

Wie Sie aus 2.3.1.4.2 ersehen können, haben wir bereits 
vorgesorgt, indem wir beim Eröffnen der Anwendung den ersten 
freien Satz der Sekundärdatei und der  Bemerkungsdatei den 
Variablen gs und qx zugeordnet haben. 

Das erspart auf jeden Fall schon einmal die Suche. Bei der 
Primärdatei, die ja eine feste Länge hat, kennzeichnen wir 
einen freigewordenen Eintrag durch chr$(B) im Datenfeld. 
wollen wir einen neuen Eintrag vornehmen, so wird einfach 
das erste Zeichen des durch den Hashcode ermittelten Satzes 
untersucht, ob es B ist. Wenn ja, kommt der neue Eintrag 


dort hinein, wenn nicht, kommt er in die Sekundärdatei. 


Soll ein Satz in Sekundär- oder Bemerkunasdatei gelöscht 
werden, gehen wir einfach hin und ordnen die gerade 
entfernte Satznummer qs. bzw. qx zu. Dadurch wird der gerade 
gelöschte Satz zum ersten freien Satz, der bei einem 
neuerlichen Eintrag in diese Datei zuerst beschrieben wird. 
Die alte erste freie Satznummer wird als Kettungsadresse in 
den nun neuen ersten freien Satz geschrieben. 

werden nacheinander mehrere Sätze gelöscht, wird der jeweils 
gerade gelöschte Satz vorne in die kette eingehängt. Sie 
erhalten so einen Pool von freien Sätzen, die wie die 
Nutzdatenblöcke untereinander verkettet sind. Der zuletzt 
gelöschte Satz wird zum ersten freien und damit irgendwann 
auch zuerst wieder beschrieben, wobei alle anderen 
Freiblöcke eins aufrucken. 

Wie Sie sehen, wird also die Datei nicht eher vergrößert, 
als bis sie wirklich mit gultigen Eintragen gefullt ist. 
Genauso. wie die Nutzblocke die Satznummer des jeweils 
folgenden Blockes enthalten, sind auch die freien Blöcke 
untereinander verkettet, falls es mehr als einen geloschten 
Satz in der Datei geben sollte. 

Wir wollen das an Abb. 2.3-3 demonstrieren. 

Dort haben wir nun aus der oben vorgestellten Adressdatei 
den Eintrag ‘Hansen2’ gelöscht. Dieser befand sich in der 
Sekundardatei. Vorher war dort der erste freie Block die 
Nummer 6 (wie Sie in Satz 1 sehen können). Nach dem Löschen 
ist der erste freie Satz die Nummer 4, wo sich Hansen? zuvor 
befand. Die alte Freisatznummer wird nun als Folgeblock in 
Satz 4 unter der Spalte ‘Folge.ex’ eingetragen. 

Ebenso geschieht das mit der zu Hansen? gehörenden Bemerkung 
im Satz 9 der Bemerkungsdatei. Die alte Freiblocknummer 12 
wird in 9 als Folgeblocknummer eingetragen, während 9 in 
Satz 1 (und natürlich in gx) als neuer erster freier Block 
vermerkt wird. 

Außerdem wird, wie Sie sicher bemerkt haben, auch die 
Folqeblocknummer bei Hanseni in der Frimärdatei geändert, da 
der Folaeblock nun nicht mehr Hansen2 mit der Satznummer 4 


ist. sondern Hansen mit der Satznummer 5. 


An dieser Stelle wollen wir auch erklären, was es mit der 


1597 


Zahl in der Spalte 'lfd.Nr.' auf sich hat: 
Wie Sie sehen, haben alle Sätze in der Frimärdatei die 
lfd.Nr. 8. In der Sekundärdatei sind die lfd.Nr. aufsteigend 


bei Einträgen mit demselben Hashcode. 


FRIMARDATEI 
Satz Folge.se Folge.ex Ilfd.Nr. Daten 


= = = Ü Mülleri 

4 e 3 o Schultzi 

15 S 8 o Hanseni 
SEKUNDARDATEI 


Satz Folge.se Folge.ex lfd.Nr. Daten 


4 
2 3 5 1 Meieri 
A 0 6 2 Meier2 
4 S ó 1 o 
5 0 10 2 Hansens 


BEMERKUNGEN 
Satz Folge.ex Daten 
1 7 
Tel. 69784 


hübsche Tochter 


4 W 


zum Essen einladen 
schuldet DM 100 
am 22.12. besuchen 
Blumen mitnehmen 


Aschenputtel 


N D S NOOA 8 


mM p 


am 20.1. Geburtstag 


- 8 ο 0 - ο u 


M ` Fe 
OQO me 


nicht vergessen! 
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PRIMARDATEI 


Satz Folge.se 
2 2 
4 Ø 
14 4 
15 5 
SEKUNDARDATEI 
Satz Folge.se 
1 6 
2 3 
3 0 
4 @ 
5 a 
BEMERKUNGEN 
Satz Folge.ex 
1 13 
2 @ 
3 4 
4 @ 
D @ 
6 7 
7 Ø 
8 ο 
9 0 
10 11 
11 a 
12 Ø 


Folge.ex lfd.Nr. Daten 


2 ὀ Mulleri 
3 ð Schultzi 
9 Ü Metzgeri 
8 @ Hansenl 


Folge.ex Il1fd.Nr. Daten 


5 1 Meier 1 

6 2 Meier 

12 1 Metzger2 

10 2 Hansen 3 
Daten 


Tel. 69704 

hubsche Tochter 

zum Essen einladen 
schuldet DM 1020 

am 22.12. besuchen 
Blumen mitnehmen 
Aschenputtel 

gute Pasteten 

am 20.1. Geburtstag 
nicht vergessen! 


Blutwurst nıcht out 
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Das ist äußerst brauchbar, denn so haben Sie gleich für 
jeden Eintrag eine eindeutige Nummer, die sich aus dem 
Hashcode (=Satznummer in der Primärdatei) und der  lfd.Nr. 
zusammensetzt. So hat zum Beispiel Hanseni die Nummer 1500 
(die lfd.Nr. müssen Sie sich zweistellig denken), Hansenz 
die Nummer 1501 usw. 

Anwendung für diese Nummer ware z.B. eine Artikeldatei, aus 
der Sie die Einträge auch nach Lagernummer suchen können. 
Außerdem enthebt Sie das der Mühe, die Nummern selbst 
vergeben zu müssen, und so können Nummern niemals doppelt 


auftreten, weil das QUISAM für Sie automatisch erledigt. 


In Abb. 2.3-4 zeigen wir Ihnen, wie zu unserer Datei noch 
zwei weitere Einträge hinzukommen. 

Metzgeri belegt einen neuen Platz in der  Primardatei, weil 
diese Satznummer bisher noch nicht aufgetaucht ist. Metzger2 
jedoch nimmt in der Sekundärdatei den alten Platz von 
Hansen2 ein. Nun ist der erste freie Block wieder die Nummer 
6. 

Bei den Bemerkungen läuft es ähnlich ab. Die Bemerkung zu 
Metzgaeri nimmt den alten Bemerkungsplatz von  Hansen2 ein, 
wahrend die Blutwurst von Metzger2 die Datei erweitert, da 


kein freigewordener Platz mehr zur Verfügung steht. 


Bevor wir Ihnen die Routine zum Löschen eines Eintrages 
vorstellen, zunächst ein anderes kleines  Unterprogramm, 
welches nur das Kennfeld eines spezifizierten Satzes 
einliest, was uns erspart, den kompletten Satz zu lesen und 
umständlich zu zerpflücken. Nun verstehen Sie auch, weshalb 
die Routine fur REL lesen den Parameter rc auswertet. 

Außer den Ihnen schon bekannten Variablen kommen hier hinzu: 


qt$ muß den Unterdateinamen, z.B. .pr" enthalten. 

qt enthält die Satznummer. 

ays, qaz#+, ay, Q2 dienen zum "Durchschieben' des 
Unterdateinamens, bzw. der zugehörigen  Satznummer. Das 
dient dazu, daß auf einen zuvor behandelten Satz 


nocheinmal zugegriffen werden kann, was spater bei dem 


Aufbau der Satzverkettungen notwendig ist. 
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qi, a2, a3, q4 enthalten beim Verlassen der Routine die 
Inhalte der Kennfelder, wobei g4 das erste Zeichen der 
Nutzdaten enthält, um es später bequem auf Ø untersuchen 
zu können. 

als, q2$, q3$ enthalten die Stringaquivalente von qi bis qi, 
damit sie beim Zurückschreiben nicht erst wieder 
umqeformt werden müssen. 

g5 ist eine Hilfsvariable, die hier mißbraucht wird, um die 


Freispeichergröße aufzunehmen (siehe auch Kommentar). 


Nun das Listing, und daran anschließend der Kommentar: 


98500 rem 

58501 remJd3333«3«3X33xXX4 Vorspann lesen 3dJ|93Jd€3930(0(C C (€ κ 
58502 rem 

598510 az£$-ayt$:ayt$-qt$:gz-qy:qay-at 

58528 dn£$-qn$*-qt$:r-gt:ccZz-ó6:gosubó33U00 

98530 ifval(fi1%$)<>Bthenreturn 

98540 g1$-leftf$ír$,.2) 

58560 aqi-ascí(leftf£í(q1£$,10)x*256-*asc(right£$(q1$,1)) 

98580 ifgqtt#=".ex"thenreturn 

238600 q2$-2mid$(r£$,.5,2) 

98620 
q2-asc(left$(q2$*chr$(0)0,10)*256*tasc (rights (q2$,1)*chr$ (02) 
598640 qi£$£-mid$(r$,5,1):g935-asc(qgS3S£$«chr$(0)5) 

58660 q4=asc (rightt(r$,1)+chr#(B)) 

58680 return 


58510 Durchschieben der Parameter, In qz$, bzw. ασ stehen 
immer die Farameter vom vorigen Durchlauf. 

58528 Aufbau der Parameter für REL lesen. Da die kennfelder 
zusammen höchstens 6 Zeichen umfassen, werden auch nur 
6 Bytes gelesen (rcZ-6). 

98530 Falls der Satz nicht gelesen werden konnte, weil er 
z.B. nicht vorhanden war, kann die Routine hier 
abgebrochen werden. 


58540- 
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58660 Hier werden die gelesenen Zeichen zerlegt und den 


Variablen qi bis q4, bzw. qi{ bis Oät zugeordnet. 


Die nächste Routine nun wäre das Löschen. Dazu noch ein paar 
Worte: 

Da ın unserem Dateisystem die Hashcodes durchaus 
doppeldeutiq sein können, ist die Satznummer allein als 
Zugriffskriterium ungeeignet. Es könnte leicht den Falschen 
erwischen. Deshalb wird grundsätzlich nur nach der 
vollstandigen Nummer des Eintrages gelöscht, die ja 
eindeutig ist, wie oben ausgeführt. 

Das zwingt Sıe dazu, den Eintrag zuerst nach 
Schlusselbeqriff zu suchen (wie, das folgt spater), um so 
die Nummer zu erfahren, und dann zu löschen. 

Als Variable tritt also hier, außer den schon bekannten, nur 


noch 


an auf, die Sie mit der Nummer versehen müssen. 


Nun das Listing: 


55000 rem 
DI remssdsxxaxxxxxx*x eintrag loeschen HHHHHHH HH 
55020 qan%=val (rıghtfi(strt(an),„2)) 
55040 qt=(qn-qnZ) /108 
5390860 gt#=".pr":qn=1: gosubs58s0e0 
55080 ifan% -Othenqt=ql:qn=4: gotoss 200 
100 itaga4-Othenreturn 
55120 rt$-gal£$-*chrt(J)-chri(0)-q2$*chr£(0) 
140 aqosuboóoz0900:ifgi-Oandat£$-".pr'"then552170 
55150 dn£$-qan£é-«az£$:rc-az:rc*-255:gosubó2;52U0 
55160 r#=glttmids (r#,2,Ql%+2) : qgosubs63000 
55170 onangot 053400 
35180 rh%=qas/256:r14=qs-256#rh7f: dn$=ant+tqyt:r=gy 
55190 r$=glf+tchr#(rh%) +chr Zs (rl%) +Q93¥+chr & (Ø) 
95200 gosub6é2000: qs=qt 
55220 rhZ-gs/256:rlZ-qs-Z25óxrh7 
39240 r-1:r£$-chr£$(rhZ)*chr£í(rl7) 
55260 gosubózcX000:goto55400 
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535300 qt$-".se":gosubS58500 
55328 i1fqnZ=q3thenss10@ 

99340 gqt=q1:qoto55300 

99400 qt-q2:ifqt-Othenreturn 
995420 at$=".ex" 

595440 gosub58500 

95460 ifqi1«s»5»Qüthengqt-2gi1:goto55440 
939480 rh%=ax /256:r1%=ax-256*#rh% 
55500 r$-chr$(rh7)-*chr$(r17) 
95528 ooeubé A8: qx=q2 

99540 r=1:r%=q2#: gosubé3000 
99560 return 


55020- 

520240 Aus der vollständigen Nummer qn wird die lfd.Nr. an% 
(letzte beide Stellen von gn) und die Satznummer qt 
der Primärdatei gebildet. 

95060 Aus der Frimardatei wird der kennsatz gelesen. 

99080 Bei αωχς20 befindet sich der Satz in dr Sekundardatei. 
Dortgeht es dann witer. 

599100 Ist der Satz bereits frei (qQ4=0), braucht nichts 
weiter unternommen werden. 

55120- 

55140 Der Satz wird gelöscht, wobei Jedoch die 
Kettungsadressen erhalten bleiben müssen, da noch 
Folgeblócke existieren können. Falls es sich um die 
Primärdatei handelte, braucht keine Rückwärtskettung 
vorgenommen werden (qt#=".pr"). 

3o9150- 

9o160 Der einen Durchgang früher gelesene Satz wird wieder 
hervorgeholt und mit dem Kettungsfeld des zu 
loschenden Satzes versehen, damit die Folge durch das 
Löschen nicht unterbrochen wird. (siehe auch Abb. 
2. 5-3) 

55180- 

99260 Die Nummer des bisherigen ersten freien Satzes wird in 
den gelöschten Satz eingetragen und dessen Satznummer 


bildet den neuen ersten Freiblock und wird in Satz 1, 
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bzw. qs hinterlegt. 

55388- 

55340 Hier wird die Sekundärdatei anhand der Verkettungen 
solange durchsucht, bis der gesuchte Satz gefunden ist 
(a%=q3). 

99400 Gibt es keine Bemerkungen (q2=Ø), ist nichts weiter zu 
tun, andernfalls geht es dort weiter. 

29420-— 

95560 Die Bemerkungen werden nicht physikalisch gelöscht. Es 
wird lediglich das erste Glied der kette zum ersten 
freien Satz, und das letzte Glied bekommt die alte 
Freiblocknummer eingetraqen. Satz 1 und αχ werden 


entsprechend versorgt. 


2.3.1.4.4 SATZ EINTRAGEN 


Wir haben die Erläuterung des Löschens deshalb vor das 
Anlegen von Einträgen gezogen, weil das wesentlich zum 
Verständnis des Schreibmechanismus ist. 

Der Eintrag eines Satzes hätte zwar thematisch vor den 
vorigen Abschnitt gehört, jedoch sind wir der Meinung., daß 
es logisch hier besser aufgehoben ist, Wir hoffen hierfür 


auf Ihr Verständnis. 


Es folgt das Eintragen eines Stammsatzes. 
Einziger übergabeparameter ist 
qd „ worin der zu Schreibende Satz enthalten sein muß. Die 


übrigen Variablen sind bekannt. 


Zunächst wieder das Listing, daran anschließend der 


Kommentar. 
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37006 rem 

57001 remsxd4 9099093 ** eintrag stamm 3900 9 HEH EH 
37002 rem 

270920 gosub58800: qn*-0 

57040 qt£$Ó-".pr":gt-hc:gosubS58500 

57060 ifqA4«s4»U0thenqt$-".se":goto572060 

37888 rc^4-2953:gosubó3500 

97100 rt=lefts(r%,5) +lef ts (qd¥#,ql%) :gosub62080 

57208 return 

57268 ıfa5=14thenan“=135 

29/280 1fq3»5»qnZz*1thenaó-qt:dn$-2qn$t*gzf$:r-gz:gotoS5755U 
57310 qn*-g3:ifqi1z»Qthenqt-gi:aosubS58500: goto57260 
97320 aq6-0 

2397330 rcZ“Z=255: qosub63500 

57340 rh%=qs/256:r1%=qs-2?56+#rh% 

97360 r$€-chr£(rhZ)*chr£(rl4X)*mid$(r£$,2,9174*2):g05ubó 3000 
57400 qt-aqas:gosubS85U0 

537410 gnZ-gqnZ*1:1i1fqgnZ-13thenan*-2qnZ*1 

57420 ifval(f1$2«»20then57440 

97420 ifqg2i»U0thengs-2g2:goto57480 

57440 qs-qs-*i:rh*-0s/256:r17-as-256*rh7. 

57450 ıfrh%=13thengs=gs+t256 

27460 ifr1%=1Sthengs=qst+ti 

97/480 rh4-9g6/2956:r1*-29g6-256*rh*. 

97/9500 r$=chrt(rh%) +chr$ (rl1%A)+tchr$ (0) *chrf$(0) 

57518 r$=r$+chrft(gqn%)+leftt(gd$,qal”) 

37528 gosubé3000 

37548 rh%=as/256:r1%=qgs-256+trh” 

37568 r$-chr$írh7Z)-t*chr$í(rlZ):r-i:gosubó3000 


57580 return 


37820- 

57288 Nachdem aus dem Satzinhalt die Satznummer errechnet 
wurde, wird, falls der entsprechende Platz in der 
Frimärdatei frei ist (q4-0) , der neue Satz dort 
ingetragen, andernfalls wird die Sekundärdatei bemüht. 

57260- 

97310 Hier wird die Sekundärdatei anhand der Kettung 
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durchgehangelt, um die nächste freie Ilfd.Nr. zu 
finden. 

57330- 

57360 Der Satz mit der höchsten gefundenen lfd.Nr. wird mit 
as als Folgesatznummer versehen, da dort ja der neue 
Satz eingetragen wird. 

57408- 

97520 Der neue Satz wird eingetragen. Abhängig davon, ob 
dieser Platz einem gelöschten Satz gehörte (f1$="BB") 
oder ein neuer vom Dateiende ist, wird qs entweder 
erhöht oder mit der Kettungsnummer q2 geladen. 

575340- 

597580 Satz 1 wird auf den aktuellen Stand gebracht. 


Nun häufen sich die Frogramme ein wenig, aber bald ist es 
geschafft. 

Was beim Eintraq noch fehlt, sind die Bemerkungen. 

Diese Routine braucht nur mit dem Text in gx  angesprungen 
werden. 

Die sonst noch benötigten Farameter werden dem zuvor 
bearbeiteten Stammsatz entnommen. Sollen also Bemerkungen zu 
einem Stammsatz erst zu einem späteren Zeitpunkt 
nachgetragen werden, so muß dieser Stammsatz zuvor gelesen 
werden, damit die Parameter qt und αἲξ richtig versorgt 


sind. Es geht los: 


96000 rem 

36001 remsx3x*xx*xxx*x* eintrag anhang HHHHHHHHHHHH 
o96007 rem 

56010 af4=-B:ifgtt=".ex"thengf%=1:return 

96020 gosub58500: αΞΞ02 

26040 qt£$-".ex":1f902«2»0thenS62UU 

36060 rc7-25595:a80subó63500 

36080 rhZ-qx/256:rlZ-ax-256*rh* 

976100 r£-left£ír£$,2)-*chr£(rh7Z)*chrt£í(rl7)t*tmid£írt£t,o5.017*1) 
96120 gosubó^5000:05-1:aoto56260 

26140 14qQ2=Otheng2=qt: gatos62690 
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56288 gi=q2:qt=qg2: gosub585øø 

56220 q2=qi:goto56140 

56260 οἵξακς gosubS58500 

56280 q4-2qax:ifval(f1$)«750then56300 

96290 ifgii >Bthengx=q1:00t056340 

536300 qx-qx-*€1:rhZ-qx/256:rlZ-ax-2S5ó6*rh7 
96310 ifrh%=1Sthengx =qgx +256 

56320 ifrlZ-13thenqx-ax-*1l 

96340 r$=chr#t(B) +chr$(B)+leftt(gx$,gx%) :gosubHsTBAd 
56268 ongs3gotos56508 

96580 r-q2:rc-2553:gosubó3500 

26400 rh4=-q4/256:r1%=q4-236#rh% 

596420 r$-chr$(rhZ)-*chr$(rlZ)*tmid£(r£t,2.q0x7X) 
596440 gosubé38080 

396900 rh4-qx/2956:rlX-gx-256*rh7 

96540 r-1:rf£-chr$(rh4)*chr£$£(rlZ?:gosubóo30U00 
96560 return 

296600 q2-q0t:03-0:q0f7*-0 

96620 ifqt$o»".ex"thengfZ-1:return 

96640 goto5626U0U 


236020- 

56120 Wenn der Stammsatz noch uber keine Bemerkungen verfügt 
(q2-0). wird als kettungsadresse gx dort eingetragen, 
da ja dort auf jeden Fall die Bemerkung hinkommt. 

56148- 

56220 Die schon für diesen Stamm vorhandenen Bemerkungen 
werden bis zur derzeit letzten durchsucht, um die 
Verbindung zur neuen herstellen zu können. 

96260- 

56340 Der neue Eintrag wird vorgenommen und qx abhängig von 
f1$ (Datei um neuen Satz erweitert?) versorgt. 

56360- 

56440 Existierten bereits Bemerkungssätze (Merker qi-0). muß 
deren letzter mit der neuen Satznummer versehen 
werden. 

56500- 

96560 Satz 1 wird mit qx versorgt. 
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56600 Das ist der Einsprung in die Routine, wenn für den 
gleichen Stammsatz weitere Bemer kungen erfolgen 
sollen. Die kKettungsparameter sind noch vorhanden, 
sodaß wir uns nur auf den Neueintrag beschränken 
brauchen. Es muß auf jeden Fall unmittelbar vorher ein 


Bemerkungseintrag über $6000 erfolgt sein. 


Was zur Vollstandigen Funktion des Faketes noch fehlt, sind 


lediglich die Suchroutinen. 


2.35.1.4.5 SATZ SUCHEN 


Die Suche, sowohl nach einem Stammeintrag als auch nach 
Bemerkungen, kann nach zwei Kriterien erfolgen, namlich nach 
der vollständigen Nummer und nach dem Schlüssel. 

Das Wiederauffinden von Bemerkungen führt, bis auf die 
Ausnahme des fortgesetzten Lesens, immer über die 
Stammsatzsuche, da ja dort der Verweis auf die erste 
Bemerkung zu finden ist. 

Beginnen wir mit der Stammsatzsuche nach Schlüssel. 

Das Suchkriterium, z.B. der Nachname, wird in Okt übergeben, 
den Rest rledigt die Routine, die nicht nur den 
vollständigen Satz in qd$ zurückliefert, sondern auch in qn 
die Nummer des Eintrages, der dann künftig als Suchkriterium 
oder als Loschparameter vrwendet werden kann. 

qaf% ist ein Flag. welches bei «20 die erfolglose Suche 


Signalisiert. 


34000 rem 

54001 rem##*##* stammeintrag nach schluessel suchen κακά 
94002 rem 

94020 hc$=left$(ak$+" 3) 

94040 gosub58840 

94060 qt$-".pr":at-hc:qf 7-0 

94080 gosub585900 

94100 rcZ=255: gosub63500 

94120 1fmid#(r%,qk4Z+5, len (qk#) ) =qk$then54200 
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54140 ifgi-OthenafZ-1:return 
54160 qt=ql:qt#=".se":goto54080 
594200 qn-hcx100*4q3 

54228 ad$-midf$írf$.6.317) 


54240 return 


54020- 

748060 Die Suche wird in der Frimardatei begonnen, nachdem 
die Satznummer aus Okt ermittelt wurde. 

24100- 

54168 Die Sätze werden nun nacheinander gelesen, beim ersten 
mal aus der Primardatei, ab dem zweiten mal aus der 
Sekundärdatei, wobei der Teil des Satzes, der αθπᾶβ 
ak% als Schlusselkriterium dient, mit ogk$ verglichen 
wird. 


4200- 


cn 


594240 Aus der lfd.Nr. wird zusammen mit hc die komplette 
Nummer gebildet, die Nutzdaten aus r$ herausgezogen 


und in ad$ abqeliefert. 


Die Suche eines Stammsatzes nach Nummer sieht ähnlich aus. 
Hier wird jedoch die zu suchende Nummer in qn übergeben. 

Als kommentar mag genügen, daß etwa in der gleichen Weise 
wie oben vorgegangen wird. Jedoch wird nur jeweils das 
Kennfeld gelesen und auf übereinstimmung mit der  lfd.Nr. 
(diese wurde anfangs von qn abgetrennt) untersucht (qnX-q3). 
Anschließend wird auch hier der vollständige Satz in  qdf 


übergeben. 


34500 rem 

94501 rem***xx*** stammeintrag nach nummer suchen 9J3dJ* 
949502 rem 

54520 qnZ%=val (riqht#(str#(qn) ,2)) 

54548 qt=(qn-qnZ) /100: qfZ=8 

24560 qt#=".pr":gosubS8500 

94588 ifqnZ-0then54700 

54598 ifqi=OthengfZ=1:return 
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54600 gt#=".se" 

94620 qt=q1:gosub58500 

94640 ifq3-gnAZthen54700 
54660 ifqi=Othengf%Z=1:return 
54688 aoto54620 

34700 ifqQ4=OthengfZ=1:return 
94710 rc*-255:g0subó63500 
24720 goto54220 


Die Suche nach den Bemerkungen anhand der  unterschiedlichen 
Kriterien haben wir zusammengefafit, da deren 
Hauptbestandteil die beiden oben vorgeführten Routinen sind. 
Nachdem übereinstimmung festgestellt wurde, wird der anhand 
der Kettungsadresse (q2) aufgefundene erste Bemerkungssatz 
ubergeben. 
Folgeeinträge werden über 33200 aufgesucht, da ja alle 
d. Das Ende wird wieder über 


Parameter noch vorhanden sin 


af%<i:>® angezeigt. 


37-2008 rem 
ΞΘ! rem**x*xx*x*xx*x anhang nach schluessel suchen ####%# 
35002 rem 
53820 af7-0:qgosub54000 
53040 goto5:200 
9.3100 rem 
93101 remsxxx*x*x*x anhang nach nummer suchen J3dJb03 3399 
53182 rem 
33120 qf7-0:aosub545S00 
935200 rem 
1 rems3xax*x* folgeeintrag suchen 3JJ3J3,: X X 
29.5202 rem 
93220 ifaf*thenreturn 
95240 1#q2=OthengfZ=2: return 
93260 r-q2:dn£$-qnt$-«".ex":rcz-255 
32280 gosubó65500 | 
393300 qaxt=midft(rf,2,qax%) 


53320 aZ=asc (left#(rt,1))*256+tasc (midt(r$,2,1)) 
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53340 return 


2.5.1.4.6 WOFUR EIGNET SICH QUISAM? 


Die Eignung von QUISAM für bestimmte Anwendungen ist, wie 
Sie den Ausführungen entnehmen können, wesentlich von der 
Dimensionierung der Frımärdatei abhängig. 

Für beispielsweise ein Kassenjournal ist es nur notwendig, 
als Suchkriterium das Tagesdatum herzunehmen. Die laufenden 
Einnahmen und Ausgaben schreiben Sie in die Bemerkungsdatei. 
Damit erreichen Sie sowohl beim Schreiben als auch beim 
Lesen die maxımale Geschwindigkeit, da die Datei geöffnet 
bleibt, wodurch die Zugriffe schneller ablaufen, da das 
öffnen und Schließen einer Datei sehr zeitaufwendigq ist 
(erinnern Sie sich: die VC-1541 kann nur in REL-File zu 
einer Zeit verwalten). Da der Schlussel selten wechselt, 
darf die Frimardatei ruhig klein bleiben, da ein Ausweichen 
auf die Sekundardatei in Bezug auf die qesamte 
Verarbeitungsdauer nur wenig Zeit beansprucht. 

Anders sieht es bei der Adressverwaltung aus, bei der die 
Schlüssel häufig wechseln. Hier ist eine möglichst große 
Frimardatei nutzlich, damit diese geöffnet bleiben kann. Ein 
Wechsel zur Sekundardatei erfordert nämlich wieder CLOSE und 


OPEN. 


Nun erhebt sich bei Ihnen sicher die Frage, wie Sie  QUISAM 
Ihren eigenen Zwecken nutzbar machen können, und ob Sie bei 
allem komfort überhaupt noch Platz für Ihre eigenen 
Programme haben. 

Die Frage nach dem Flatz ist schnell geantwortet: Alle im 
gesamten kapitel 2 vorgestellten Routinen zusammen umfassen 
nur ca. 15k. Sicher, das erscheint auf den ersten  Hlick 
viel, aber dafür kann Ihre spezielle Anwendung minimal 
ausfallen. Ein prägnantes Beispiel dafür finden Sie am Ende 
des Buches im Frogrammteil unter ‘Literaturverzeichnis’. Sie 
können dort sehen, wie mit nur wenigen zusätzlichen Zeilen 
eine komplette Quellenverwaltung mit Bildschirmmaske und 


allem Drum und Dran unter Verwendung von  QUISAM realisiert 
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wurde. 

Prinzipiell gehen Sie so vor, daß Sie alle Routinen laden 
(dazu sollten sie alle miteinander einen Komplex bılden) und 
dann, wie gewohnt, Ihr Programm hinzuschreiben. Komfortabler 
geht es natürlich mit EXBASIC o.ä., denn damit können Sie 
mit der Funktion MERGE nur die wirklich benötigten Routinen 
Ihrem Programm hinzufügen. 

Es gibt nur relativ wenige Einsprünge, und für einen 
zusammenhängenden Themenkomplex sind die übergabevariablen 
immer dieselben. Nach kurzer Zeit werden Sie virtuos damit 
Jonglieren können. überflüssig, zu bemerken, daß Sie 
natürlich nicht die in den Programmen benutzten Variablen 


anderweitig verändern dürfen. 


Damit endet dieses Kapitel. 
Wir hoffen, daß es nicht allzu trocken war. aber wir denken, 


daß sich die Mühe für Sie und für uns gelohnt hat. 


WICHTIGER HINWEIS: QUISAM ist eine vom Leiter der DATA 
BECKER Entwicklungsabteilung, Klaus Gerits, eigens für 
dieses Buch geschaffene Neuentwicklung. Trotz ausführlicher 
Tests können natürlich grundsätzlich noch Fehler enthalten 
sein. Für Anregungen und konstruktive Kritik, bitte nur in 


schriftlicher Form, ist der Autor stets dankbar. 
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2.3.2 DIE AUSGABE AUF DRUCKER 


Die allermeisten Frogramme enden damit, daß sie, nachdem 
Daten eingegeben, vom Programm mißhandelt und auf Floppy 
hin- und hergeschaufelt wurden, diese Daten schließlich zu 
Papier bringen, etwa nach dem Motto 'Was du schwarz auf weiß 
besitzt .... e 

Jedoch ist für den Frogrammierer kein Thema so banal und 
gleichzeitig so tückisch wie die Ausgabe auf Drucker. 
Solange Sie nur für den Eigenbedarf programmieren, ist alles 
klar, denn Sie kennen Ihren eigenen Drucker genau. 
Froblematisch wird es erst, wenn Sie nicht wissen, auf 
welchem Drucker die Ausgabe erfolgen soll, denn diese Geräte 


unterscheiden sich in der Frogrammierung gewaltıg. 


2.3.2.1 DRUCKER GLEICH DRUCKER” 


Kennen Sie dieses Kribbeln im Rücken, das allmählich bis in 
die Haarspitzen steigt und beim Passieren des Kopfes auf dem 
Gesicht eine nicht zu übersehende Rötung hinterläßt, die uns 
bei kindern oft auf ein schlechtes Gewissen tippen lant? 
Sehen Sie diese gesunde Hautfarbe . einmal bei einem 
Softwareanbieter auf die Frage hin, ob das Programm X auch 
mit dem Drucker Y zusammenarbeite, liegen Sie mit dem Tip 
auch hier nicht ganz falsch. 

Was ist die Ursache” 

Bei Mixed Hardware (mehrere Gerate unterschiedlicher 
Hersteller in einem System) kann man von vornherein 
unterstellen, daß ein z.B. Centronics-Drucker, abgesehen von 
dem physikalischen Anschluß, nicht unbedingt zu Ihrem C64 
paßt. Das fängt schon bei den Graphikzeichen an. Davon soll 
hier auch nicht die Rede sein. 

Viel schwerer wiegt, daß auch nicht alle zum Anschluß an den 
C64 vorgesehenen Commodore-Drucker programmtechnisch gleich 
zu handhaben sind. Um ein konkretes Beispiel zu nennen: 

Sie haben ein Frogramm mit Druckausgabe für den im 
VC-Bereich weit verbreiteten Drucker SEIKO GF-100VC 


erstellt. Da Sie Groß- Kleinschrift wünschen und es Ihnen zu 
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lästig war, vor jede Druckzeile chr#(17) zu setzen, was 
bedeutet, daß eben diese Zeile in der erwähnten Schriftart 
gedruckt werden soll, haben Sie den Drucker einfach mit 
OFEN1,4.7 eröffnet und sofort lustig Daten ausgegeben, was 
fur diesen Drucker heißt, daß die über die Sekundäradresse 

7 geleiteten Daten samt und sonders in der Gr oß- 
kleindarstellung gedruckt werden. 

Das gleiche Programm mit Ausgabe auf einen VC-1526 fuhrt zu 
einer von wüsten Beschimpfungen begleiteten Fehlersuche: Der 
Drucker rührt sich nicht. Die Ursache ist einfach die, daß 
der VC-1526 über die Sekundäradresse 7 keine Daten annımmt, 
da diese nur als Umschaltadresse für die Betriebsart 
gedacht ist. Um das zu erreichen, was beabsichtigt war, ıst 
die Sequenz 

ißopeni,4,7:printi:closei:rem Umschalten auf Grofi-klein 


ρ0ορεθπ 1 . 4 


2Oprint#i."“daten" 

vonnoten. Andersherum hat ein stolzer Besitzer des VC-1526 
dessen exzellente Fähigkeit zur Formatierten Ausgabe uber 
Sekundaradresse 1 und 2 genutzt. Diese Adressen wiederum 
sind für den  GF-100VC keineswegs Anlaß, das gewünschte 
Ergebnis zu produzieren. 

Im Falle Groß- Kleinschreibung ist es also nie falsch, die 
Betriebsart uber chr£$(17) zu steuern, weil das die meisten 
Drucker beherrschen. Anders ist es mit einer Feldbundigen 
Ausgabe von Daten. Das können die allerwenigsten, im Bereich 
VC bis jetzt sogar nur der νς- 1226. 

Da diese Möglichkeit den komfort beträchtlich erhöht und das 
Erscheinungsbild eines bedruckten Blattes erheblich 
verbessert, insbesondere beı Formularen Jeder Art, wollen 
wir uns ein wenig naher damit befassen, und überlegen, wie 
diese Möalichkeit, wenn schon nicht im Drucker vorhanden, 
wenigstens programmtechnisch zu simulieren. Genau das soll 
Gegenstand der folgenden Abschnitte sein: 

Wie stellen Sie es an, daß das Druckbild vernünftig ist, 
otne dal3 Sie auf einen intelligenten Drucker zurückgreifen 
müssen, der bedartsweise die Textblöcke auch ausrichtet. 


Was jeder Drucker kann, ıst, die Zeichen so zu 
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wiederzugeben, wie sie kommen. Es ist also Ihre Aufgabe, die 
Daten so aufzubereiten, daf das Erscheinungsbild dem 
zugedachten Zweck entspricht. 

Die Ausgabe eines Briefes ist, vom KRandausgleich einmal 
abgesehen, die unproblematischste Form der Ausgabe. 

Anders sieht es bereits beim Drucken von Rechnungen aus. Da 
müssen Textteil und Zahlenteil ausgerichtet werden. nämlich 
in der Regel der Text linksbündig, die Zahlen rechtsbündig. 
Welche Möglichkeiten der Aufbereitung machbar sind, soll nun 


diskutiert werden. 


2.5.2.2 TABULATOR 


Eine Möglichkeit, das Erscheinungsbild zu beeinflussen, 
bietet Ihnen schon Ihr Rechner von Haus aus: Die Funktion 
TAB. 

Leider verhält sich diese bei Ausgabe auf den Bildschirm 
anders als beim Drucker. 

Möglicherweise ist es Ihnen schon aufgefallen, dañ 


beispielsweise die Zeile 

print"hallo'tab(1B)"wie geht es" 

auf dem Bildschirm ganz ordentlich 

hallo wie geht es 

produziert, auf dem Drucker jedoch 

hallo wie geht es 

Wie ist das möglich” Ganz einfach, das Betriebssystem 
wandelt den tab(x) bei der Ausgabe auf ein anderes Gerät als 
den Bildschirm in ein spc (x) um. 

Tab bedeutet ja eine absolute Position vom linken Rand, 
während spc eine Distanz vom augenblicklichen Stand des 


Cursor, bzw. Druckkopfes bestimmt. 


Abhängig von der Länge des ersten Textes wird sich auch der 
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Anfang des zweiten Textes verschieben. 

Was also ist zu tun? 

Eine Möglichkeit gibt es, die Jedoch nur auf 
Commodore-Drucker anwendbar ist: 

die Bestimmung der absoluten Fositıon vom linken Rand 
mittels Wagenrücklauf ohne Zeilenvorschub und anschliefiendes 
Drucken des zweiten Zeilenteiles. 

Einen Rücklauf des Druckkopfes ohne Papiertransport können 
Sie durch Senden von chr$(141) erreichen. Am konkreten 
Beispiel sieht das fur den Druck einer Rechnungszeile so 
aus: 

10 openi,4 

20 printtti,"Verlangerungsschnur" 'chr$(141)spc(40) 'DM 6.45" 
Der Text wird nun linksbündig gedruckt, und die Freisangabe 
ab der Spalte 40. 

Das verdanken wir dem einfachen Trick, daíi wir erst den Text 
gedruckt, dann einen Wagenrucklauf ohne Zeilenvorschub 
verursacht, anschließend ein Vorrucken um 202 Zeichen 
befohlen und dann den Text gedruckt haben. 

Sie sehen also, daß Sie bei der Ausgabe auf Drucker die 
Wirkung eines echten TAB durch Voranstellen eines ΟΠΓΦ(141) 
erreichen konnen. 

51e haben aber damit erst erreicht, daß die gewünschten 
Texte an den durch spc (x) festgelegten Stellen beginnen, 
was jedoch nicht in allen Fallen auch zweckmäßig ist. 


Was wir damit meinen, sehen Sie im nächsten Abschnitt. 


2.3.2.3 DEZIMALFUNKTE 


Um bei der Rechnungszeile aus dem vorigen Abschnitt zu 
bleiben: 

Angenommen, eine nach dem gleichen Schema  übergebene Zeile 
enthielte als Betrag den String "DM 66.45". Der Betrag würde 
zwar wieder an der gleichen Position beginnen, jedoch wurde 
der Dezimalpunkt gegenüber der darüberliegenden Zeile um 
eine Stelle nach rechts rücken. Stellen Sie sich vor, so 
wür de eine Rechnung mit Betragen unterschiedlicher 


Vorkommastellenzahl gedruckt. 
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Das Ergebnis wäre als Exponat einer kuriositätensammlung 
geeignet, nicht jedoch zur Dokumentation Ihrer finanziellen 
Forderungen. 

Wie fast alles, ist natürlich auch dieses Problem jeweils 


programmtechnisch zu lösen, indem Sie zunächst aus der Zahl 


einen String machen, diesen dann auf die Lage des 
Dezimalpunktes untersuchen und den spc-Parameter davon 
abhängig machen, wobei natürlich die unterschiedlichen 


Positionen einer Zeile auch unterschiedlich behandelt werden 
müssen. 

Diesen nicht unerheblichen Aufwand haben wir Ihnen wieder 
abgenommen, und zwar auf die für Sie allerbequemsten Weise, 


wovon Sie sich im nächsten Abschnitt überzeugen können. 


2.2.2.4 FORMATIERUNG 


Unter einem Format, hier Druckformat, verstehen wir das 
Erscheinungsbild einer ganzen Zeile. 

Bei der Rechnung kann eine Zelle etliche Felder haben. Das 
beginnt mit der Positionsnummer, dann kommt die Menge, dann 
dıe Artıkelbezeichnung, dann der Einzelpreis und 
abschließend der Gesamtpreis. 

Wenn Sie das nach obigem Schema realisieren wollten, hätten 
Sie gut zu tun. 

Wie eınfach wäre es, wenn man das Format einer Zeile 
unterschieden nach alphanumerischen und rein numerischen 
Feldern einmalig aufbauen könnte und die Ausgabe unter allen 
Umständen diesem Format entspräche. 

Das folgende Unterprogramm nimmt Ihnen diese Arbeit ab, und 


der resultierende Ausdruck kann sich sehen lassen. 
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rem 

I CE EEE 9 EE EHH Formatieren HHH HHH HEHE 
rem 

iffz%4=®dthenfz%=1:t1%=1en (fot) sfps="" 
ti%=len (fi$) :#fbt="":fc%=i 

ıitfmid$(fo$,fz%,1)=" "thenfz%=fz%+1: 

tb$=tb$+" ":goto48050 

fm$-mid$(fo$.fz7^,1) 

fv4-0: fh 4-0: fa%=8: fb%=B: ff7.—0 


ifmid$ífof$.fz7z.1)-"."thentzA-fz4*1:ff7-2s:goto48180 
itfz%>ftl%Athenfaf%=fai+t1i:fz%=fz%+1:90t048248 
ifmid$(fo$,fz%/,1)=" "then48240 
fa*-faZLt*ls:fzA-fzZ*i:gotoA48100 

itfmidt(f0o$,fz%,1)=" "orfzA^flAXthen48240 
tb%A=fbA+t1:fz%=fz%+1 

goto48180 


ifmid£$í(fif£.fcA.10)-"."thenfcZ-fcAtl:tf7Z-ttt*4:qoto48520 


tv%=stvirl:fc/=tc/t+i 
iffcA»fiZthengoto48580 

goto 48248 

iffcA2fiXxthen483:80 
th%=sfh%A+r1:tci=tc%+l1 

got 048320 

i ffm$="a"then48780 
12=faä-tv%:if12xßdthentf%=tff%+1:90t048728 
ifl2-ü0then48450 

forli=1tol2: fb¢t=fbs+" ":nextli 
1ffvZ=Bthen48520 
12=fv%:forli=1tol2 
fbié-fb$*«midf$(fif,li1,1)0:nextll 
ifff^-üthen48920 
tf7/=-B:tbt=fb$+".":12=fv%+r2 

i f fbZ=Othen48920 
itfb%4=th%then] 3=fb%:goto4862ø0 
1 3 de kA dé de KE du kä Ed de KA AE da KE de Kä -1 
torli=12tol2+1l>5 
tb+=fbs+tmidt(tır,li.i):nextli 
itthZ5-fbZthen489182 
2=tb%-th%:torli=itol2 
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48700 fb$-fb£$-"O":nextli:goto48910 

48720 12=fa%+tfb%:if (ff%and2)thenff%=1:12=12+1 
48740 forli-itol2:fb$-fb$-«"x" 

48760 nextli:goto48910 

48780 if (ffZand4) thenfvZ=fvZ+Ffh7Z+1 

48800 12-2fv7:forli-1to12 

48828 ifmid#(fi¢.,11.1)<7" "thenl3=11:11>=12 
48840 nextli 

48860 12=-#VArltfah>tvA)-taArltv%;ta%) 
48870 if12-O0then12-fv7 

48880 forl11-213to135-*412 

48900 fb$-fb$*mid$(fi$,11.1):next11 

48902 iffvZ>=fazthen48910 

48904 13=faZ-12:forli=itols 

48906 fb$=fb$+" ":nextll 

48910 iffz^Z^»flZthenfz4-ü:goto48960 

48920 12=fz2%:135=fl%:forli=12tol3 

48930 ifmidt(fo$,11,1)S>" "thenfzZ=11:11=13: goto48958 
48940 fbs=fbs+" " 

48950 nextli 

48960 fp$-fp$*fb$:ff7Z—-(ffZand1) 

48970 return 


Da das Frogramm viele interne Variablen enthalt, wollen wir 


Ihnen nur diejenigen vorstellen, die den Ablauf der Routine 


wesentlich beeinflussen. 


fot 
{148 
{54 
fps 


{27 


{42 


muß das von Ihnen gewünschte Zeilenformat enthalten. 
müssen Sie mit den Daten versorgen, die Sie gerne 
ausgerichtet hätten. 

enthält den gerade aufbereiteten Teilstring, während 

den vollständigen Druckstring enthält. 

ist der Zeiger auf den gerade bearbeiteten Terminus in 
fo$. 

signalisiert einen überlauf der Vorkommastellen 
({{26 20}. 

enthält die Anzahl der Vorkommastellen des gerade 


bearbeiteten Feldes in fot. 
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fb% wie oben, jedoch Nachkommastellen. 
#vZ Anzahl der Vorkommastellen in fi*. 


ΕΠΑ Anzahl der Nachkommastellen in fiŝ. 


Der Kommentar: 


48020— 

48080 Abhängig vom erstmaligen  Einsprung (fz%=B) werden 
einige Variable ruckgesetzt. 

48100- 

48160 Die Vorkommastellen des gerade bearbeiteten Feldes von 
{ΟΦ nach faz. 

48180- 

48220 Wie oben. jedoch Nachkommastellen nach fb. 

48240- 

48500 Anzahl der Vorkommastellen in 1% nach fv%. 

48520- 

48560 Anzahl der Nachkommastellen in fi$ nach fh. 

48400- 

48440 Hier beginnt die Ausrichtung numerischer Felder. 

Falls fi$ weniger  Vorkommastellen als fot enthält, 
wird mit Leerzeichen aufgefüllt. 

48460- 

48500 Die gültigen Vorkommastellen kommen nach fbf. 

48560- 

48640 Die gültigen Nachkommastellen kommen nach fbi. 

48660- 

48700 Falls fif weniger Nachkommastellen als fot enthalt. 
wird mit Nullen aufgefüllt. 

48720- 

48760 Hatte fi$ mehr  Vorkommastellen als fot. wird das 
gesamte Feld mit AN gefüllt, damit es auf dem 
Ausdruck sofort ins Auge fällt. Sie haben in diesem 
Falle das Feld zu knapp bemessen. Dem Programm wird 
dieser Zustand durch tt: HM signalisiert. 

48780- 

48840 Hier beginnt die Aufbereitung für Alphafelder. 
Zunächst werden führende Leerstellen aus fit 


unterdrückt, damit die sıchtbaren Zeichen auch 
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tatsachlıch am Feldantang beginnen. 

48860- 

48900 Aus {18 werden Zeichen gemaíi {ΕΟΦ nach fb$ übertragen. 
übrige Zeichen aus fit werden abgeschnitten, übrige 
Zeichen aus fot mit Leerstellen aufgefüllt. 

489 10- 

48950 Gemaß der Distanz zum nächsten Feld in fot wird {55 
mit Leerstellen aufgefüllt. 

48960 - 

48970 {58 wird auf {58 addiert. 


Die Bedienung gestaltet sich recht einfach: 

Stellen Sie fest, wieviele Felder es in Ihrer Zeile gibt, 
und ob diese Alphadaten oder Zahlen enthalten sollen. 
Anschließend halten Sie dieses Format in fot fest. Das sähe 
tur die oben beschriebene Rechnung so aus: 

fo$-"99 999 aaaaaaaaaa 999.99 9999.99" 

Sie sehen schon, daß numerische Felder mit d ad 
gekennzeichnet werden, Alphafeldermit ‘a’. Die 
unterschiedliche Behandlung besteht darin, daß die Daten in 
Alphafeldern linksbündig wiedergegeben werden, numerische 
jedoch rechtsbundig ın Übereinstimmung des Dezimalpunktes 
mit seiner Lage ın fos. Nun 
brauchen Sie nur noch fi$ mit Ihren Daten zu versorgen und 
das Frogramm sooft  anzuspringen, wie Sie Felder in fos 
definiert haben, natürlich mit immer anderen Daten in fi$. 
Am Schluß der Prozedur haben Sie in {55 die vollständige 
Druckzeile. 


Das könnte in Ihrem Frogramm dann so aussehen: 


1Bopeni,4 

2U0fo$-"99 99979 aaaaaaaaaa 999.99 9999.99" 
3Ufif$-str$(po?:gosub4800U: rem positionsnummer 
40fi$-str$(an?):gosub48000:rem anzahl 

o9 Ufif$-ar$:gosub4BUUU:rem artikelbezeichnung 
60f1if-str$(ep):gosub4800U0:rem einzelpreis 
70fi$-str£$(an*ep):gosub4800Q0:rem ges.-preis 
BOprint#l ,fp+F 


Sie sehen, daß die Routine fünfmal angesprungen wird, 
nämlich sooft, wie Felder in ΕΟΦ definiert sind. 

Die Definition in fot brauchen Sie natürlich nur einmal 
übergeben. Sie bleibt solange erhalten, bis Sie ein anderes 


Format in fo% hinterlegen. 


Eine große Hilfe bietet diese Routine auch beim 
Etikettendruck. Gewöhnlich nımmt man zum Drucken von 
Selbstklebeetiketten nur solche, wo nur je ein Etikett in 
der Reihe auf dem Träger montiert ist. Diesen spannt man 
dann linksbündig in den Drucker eın und beschreibt die 
Etiketten mit ganz normalen PFrint-Anweisungen. Die erste 
Hilfe der Formatierung besteht darin, das Format so zu 
wahlen, daíi bei längeren Sätzen ein Druck über das Etikett 
hinaus verhindert wird. Da es sich aber dennoch um recht 
kurze Zeilen handelt, die jeweils untereinander gedruckt 
werden, wird das mögliche Zeilenformat des Druckers schlecht 
genutzt, d.h. der Druckkopf muß für jede Zeile je eines 
Etiketts einmal bewegt werden, und anschließend wird ein 


Zeilentransport ausgeführt. Das dauert alles seine Zeit. 


Erheblich schneller geht es, wenn Sıe, der maxımalen 
Zeilenlänge des Druckers entsprechend, einen Trager 
besorgen, auf dem Etiketten zu zweit oder zu drıtt 


nebeneinander montiert sınd (durchaus handelsublich). Nun 
wird die Druckaufbereitung fur den Frogrammierer äußerst 
kompliziert, denn abqesehen davon, dali nun die Daten einer 
Zeile für je zwei (oder drei) Etiketten bereitgestellt 
werden mussen, ist es unumgänglich, die Druckzeile vorher 
zusammenzusetzen in der Form, daß die Zeilenanfänge jedes 
Etiketts auch untereinanderstehen. Drei Verfahren sınd dazu 
moglich: 

Falls der Drucker selbst eine Tabelliereirichtung besitzt, 
konnen Sie dessen  Tabulatorpositionen  vorwahlen und dann 
munter drucken. Leider besitzen die Commodore-Drucker eine 
solche Einrichtung nicht. 

Ein Verfahren wie in 2.3.2.1 beschrieben ist ebenfalls 
anwendbar. Es ist zwar etwas umstandlicher, aber es 
tunktioniert. 


Die dritte und eleganteste Möglichkeit ist die Nutzung der 
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Formatierroutine. Hier brauchen Sie ledıglich die Lage der 
Etiketten auf dem Träger einmal in fot zu hinterlegen, und 
los geht es. Für einen zweispaltigen Träger könnte das 
Programm so aussehen: 

10Bfo$="aaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaa'" 


200al1$-"Anredel":a2$-'"Anrede2" 
210f1$-a1$:gosub48000: f1$-a2$: gosub48000 
220print$ti,fp$f 


Auf die gleiche Weise können Sie nun mit den weiteren Zeilen 
tortfahren. 

Der Vorteil liegt klar auf der Hand: Wie auch immer die 
Etiketten angeordnet sein mögen, sıe brauchen nur fot 
entsprechend anzupassen, und der Drucker schafft bei nur 


einer Papierbewegung gleich mehrere Etiketten. 


Ein kleiner Tip: 

übergeben Sie ausnahmsweise einmal für eine Zeile weniger 
Felder, als gemäß fot der Fall sein sollte, müssen Sie für 
die nächste Zeile fz^-Ü setzen. damit fot wieder von vorne 


abgetastet wird. 


Damit wären wir am Ende des Kapitels 2, und wir hoffen, daß 
wir Ihnen die drei Dinge, aus denen nach verbreiteter 
Auffassung (man munkelt) ein Frogramm bestehen sollte, ın 
angenehmer und verständlicher Form auseinandergesetzt haben. 
Unsere Zielsetzung war die, Ihnen in erster Linie brauchbare 
Werkzeuge an die Hand zu geben und dennoch, soweit es das 
Thema zuließ und es in dem jeweiligen Zusammenhang sinnvoll 
erschien, die Grundlagen zu diskutieren, um Sie zu eigenen 
Versuchen zu ermutigen. 

Wir sind uns natürlich darüber im klaren, daß einige 
Programmteile schneller und vorteilhafter ın 
Maschinensprache zu lösen gewesen wären, was jedoch nicht 
Jedermanns Sache ist. Nicht alle Leser hätten etwas davon 
gehabt. 


Vielleicht lassen Sie einmal von sich hören, wenn Sıe 
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glauben, ein delikates Thema besonders elegant gelöst zu 
haben. 


Auch wir lernen gerne hinzu (wir müssen es sogar). 
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i. KAPITEL: TIFS FUR DIE PROFESSIONELLE FROGRAMMGESTAL TUNG 


In diesem Kapitel zeigen wir Ihnen anhand ausgewählter, 
wichtiger Themenbereiche, wie Sie Ihre Frogramme noch be- 


diener- und anwenderfreundlicher gestalten können. 


2.1 Farameterisierung von Frogrammen 


Nehmen wir an, Sie haben eine  Adre(jverwaltung geschrieben, 
mit der Sie Adressen eingeben, andern, suchen und löschen 
können. In Ihrem Programm haben Sie Länge des Datensatzes 
sowie die Anzahl der Felder und ihre Längen und Fositionen 
verankert. Wenn Sıe Jetzt plötzlich feststellen, daß das 
Feld fur den Namen zu kurz ist, geht die Sucherei los: Sıe 
müssen samtliche Stellen im Frogramm suchen, an denen die 
Lange dieses Feldes benutzt wird und dort entsprechend 
andern. War dieses Feld nicht zufällig das letzte, so ändern 
sıch selbstverstandlich auch die Fositionen der 
nachfolgenden Felder. Wie können wir solch eine umständliche 


Frozedur bei der Anderung eines Frogrammes vermeiden? 


Das Stichwort hierzu heilt Parameterisierung. Für den 
Froqrammierer bedeutet dies. daß er anstelle von konstanten 
fur alle progqrammspezifischen Werte Variablen benutzt. 
Diesen Variablen werden zu Beginn des Frogramms einmal die 
Werte dieser speziellen Anwendung zugewiesen, die sogenannte 
Initialisierung. Dies kann z.B. durch ein Unterprogramm 
geschehen. Initialisieren kann man die Variablen entweder 
durch einfache ei Anweisungen oder auch durch 
READ-Anweiısungen, die die Werte einfach aus DATA-Statements 
holen. Sehen wir uns als Beispiel eınmal einen 
Frogrammabschnitt an, der aus mehreren Variablen einen 


Datensatz zusammensetzt. 


100 D$ = Alt + A2$ 4 ASS + AAT 
110 PRINT# 1, D$ 
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Farameterisiert sieht das Danze z.B. so aus: 


188 GOSUB 1000 :REM INITIALISIERUNG 

110 D$ = "" 

128 FOR I=1 TO N:REM ANZAHL DER VARIABLEN 
138 D$ = D$ + A$(I) : NEXT 

140 FRINT# 1, D$ 


1000 N=5 : DIM AS(N) : RETURN 


Auf den ersten Blick sieht die zweite Varıante umständlicher 
aus. Diese Version hat jedoch den Vorteil, daß bei einer 
Erweiterung der Anzahl der Variablen nur der Wert von N im 


Unterprogramm zur initialisierung geändert werden mul. 


Welche Werte sollten nur  parametrisiert werden? Um beim 
Beispiel unserer Adrefsverwaltung zu bleiben wären dies z.B. 
die Anzahl der Felder innerhalb des Datensatzes sowie die 
Lange jedes Feldes. Daraus kann das Frogramm dann dıe Lange 
des kompletten Datensatzes berechnen. Die Bezeichnungen der 
einzelnen Datenfelder könnten Sie in DATA-Statements ablegen 


und bei der Initialisierung einlesen, z.B. 


188 READ N :REM ANZAHL DER DATENFELDER 

110 DIM F<(N+1),L(ND : REM POSITION, LANGE 

120 F(í1) = 1 : REM STARTFOSITION 

1:0 FOR I=1 TON 

140 READ L(I) = REM LANGE LESEN 

190 S = Ὁ + L(I) RER GESAMTLANGE BERECHNEN 

160 FiI*t1) = FCI) + LCI) :REM FOSITION BERECHNEN 
170 NEXT 


1000 DATA 5 : REM ANZAHL DER FELDER 
1018 DATA 25. NAME 

1828 DATA 20, VORNAME 

1828 DATA 4, PLZ 

1040 DATA 25, ORT 

1050 DATA 20. STRASSE 
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Hier geben Sıe also Anzahl, Länge und Feldbezeichnungen vor. 


Grundsätzlich sollten Sie alle konstanten in einem Frogramm 
zu Beginn als Variablen definieren. Dadurch werden 
Anderungen und Anpassungen ın Ihrem Frogr amm zum 
Kinderspiel. Sie konnen auf diese Weise z.B. aus Ihrer 
Adrefsverwaltung eine Verwaltung für Schallplatten machen. 
Sie brauchen nur die entsprechende  Initialisierungsroutine 
zu ändern. Diese Methode hat jedoch noch einen Nachteil. Sie 
können mit ein und dem selben Frogramm immer nur eine Art 
von Datei verwalten. Zur Anpassung an eine andere 
Aufgabenstellung mussen Sie das Programm andern. Auch dies 
lat sich vermeiden. Dazu legen wir die Parameter nicht im 
Programm, sondern in einer Datei ab. Wenn Sie nun das 
Programm benutzen, brauchen Sie nur per INFUT den Namen der 
Parameterdatei abfragen und die entsprechenden Daten von 
Diskette laden. Aufgrund dieser Daten konnen Sie z.B. Ihre 
Felder dimensionieren und die Eingabemasken mit den 
entsprechenden Texten aufbauen. Unser obiges Beispiel sähe 


dann so aus: 


100 OPEN 2.8,2. "B:PARAMETER,S.R" 

110 INPUTS 2,N :REM ANZAHL DER DATENFELDER 

120 DIM F(N+1),L(ND :REM POSITION, LANGE 

150 P(1) = 1 : REM STARTPOSITION 

140 FOR I-1 TO N 

190 INFUT# 2,L(I) : REM LANGE LESEN 

168 S = S + L(I) : REM GESAMTLANGE BRECHNEN 

170 P(I+1) = PCI) + L(I) :REM POSITION BERECHNEN 
188 NEXT 

190 CLOSE 2 


Nach dem oben beschriebenen Verfahren lassen sich natürlich 


auch leicht Standardprogr amme parameterisieren. Alle 
anwederspezifischen Daten werden nur einmal bei der 
Einrichtung des Programms eingegeben und in einer 


Farameterdatei auf Diskette gespeichert. Nach jedem Start 
liest das Programm zunächst die Farameterdatei und weist den 


zugehörıgen Varıablen ım Frogramm dıe entsprechenden Werte 
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bzw. Texte zu. So entsteht aus dem Standard-Finanzbuch- 
haltungspaket XY schnell die individuelle Finanzbuchhaltung 
der Firma Maier & Söhne mit auf die eigenen Belange 


angepafßitem Kontenrahmen und indivduellen Mahntexten. 


Bei der Parameterisierung gibt es jedoch noch eines zu 


beachten: 


Da Sıe in Ihrem Frogramm nıcht wissen, welche Werte die 
Parameter später einmal erhalten, mussen Sie die erhaltenen 
Werte erst einmal auf Plausibilitat prüfen. Dabei qilt es 
auch Sondertälle zu berücksichtigen, z.B. bei Schleifen. Ist 
dort der Endwert kleiner als der Anfanqswert, so wird die 
Schleife immer einmal durchlaufen, was evtl. nicht 


beabsichtigt war. 


Was kann man nun alles parameterisieren? 

Hier können Sie selbst entscheiden, wie weit Sie die 
Farameterisierung treiben wollen. Sie sollten jedoch nach 
Möglichkeit soviel wie möglich in Variablen packen. Nehmen 
wir als Beispiel mal unsere Adreßverwaltung. Hier sollten 
wir die Anzahl der Felder in unserem Datensatz variabel 
halten. Ebenso sollten die Langen der einzelnen Felder als 
Parameter behandelt werden. Natürlich gehören dann auch die 
Bezeichnungen der Felder dazu. Damit haben wir aus unserer 
Adrefsverwaltunq schon eine universelle Dateiverwaltung 
gemacht, mt der man z.B. auch seinen Bücherbestand 


verwalten könnte. 


Bei der Farameterisierung sollten Sie auch die 
Peripheriegeräte Ihres Rechners berücksichtigen. Wenn Sie 
als Farameter den Druckertyp hinterlegen, können Sie im 
Programm entsprechend reagieren und Ihr Froqramm kann mit 


verschiedenen Druckertypen zusammen arbeiten. 


In diesem Zusammenhang sollten Sie auch für Geräteadressen, 
Sekundäradressen und evtl. Filenamen  Faramater verwenden. 
Benutzen Sie auch tur die logische Filenummer einen 


Farameter,„ so können Sie damit auch Drucker mit und ohne 
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automatischem Zeilenvorschub bedienen. Ist die logische 
Filenummer größer als 127. so wir nach jedem Zeilen 
(Carriage Return, CHR#(13)) ein Line Feed (CHR# (10) ) 
gesendet. Bei logischen Filenummern unter 128 unterbleibt 


dıes. 


Auch wenn für ein voll parameterisiertes  Frogramm der 
Autwand beim erstmaligen Erstellen größer ist. sollten Sie 
diesen Mehraufwand in Kauf nehmen. Er ist weitaus geringer 
als wenn Sie später Programm in allen Finzelheiten 
durchforsten mussen, um vielleicht das Feld fur den Namen 


nur um ein Zeichen grofser zu machen. 
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3.2 Menusteuerunq und Overlaytechnik 


Eine bewährte Programmiertechnik besteht darin, für eine 
Froblemlösung ein sogenanntes Menu- oder Auswahlprogramm zu 
schreiben, von dem aus fur die einzelnen Teılprobleme 
jeweils ein eigenes Programm geladen und ausgeführt wird. 
Dieses Nachladen oder überlagern von Programme nennt man 
Overlaytechnik. 


Ein kleines Menuproqramm kann z.B. so aussehen: 


100 REM MENUE 

110 READ N :KEM ANZAHL DER FROGRAMME 

120 FOR I-1 TO N 

130 READ A#(I) : PRINT I, A¥(I) : REM NAME UND NUMMER 
140 PRINT =: NEXT 

158 FRINT "BITTE WAHLEN SIE: " 

160 GET T# : T=VAL(T#) = IF T «1 ORT N THEN 160 
178 LOAD A#(T) ,8 :KEM FROGRAMM LADEN 

180 DATA 3 

198 DATA EINGABE, AUSWERTUNG, DRUCKAUSGABE 


Das Frogramm liest zuerst die Anzahl der  auszuwahlenden 
Frogramme und zeigt diese dann mit der Nummer an. Wenn Sie 
jetzt eine Nummer eingeben, wird das entsprechende Programm 
geladen und automatisch gestartet. Ist das Frogramm beendet, 
wird von dort das Menüprogramm wieder geladen. Das ist die 
grundsatzliche Vorgehensweise. Dabei gibt es jedoch noch 
einen Punkt zu beachten: 

Dies betrifft die Grofse des aufrufenden und des aufgerufenen 
Froqramms sowie die ubernahme der Variablen. Dabei gibt es 
zwei arundsatzlıche  Moalichkeiten: übernahme oder keine 
Ubernahme der Variablen in das nachgeladene Frogramm. Eine 
übernahme der Variablen ist nur dann moglich, wenn das aut- 
rufende Frogramm mindestens so groß oder größer als das 
nachgeladene ist. Wird von einem Frogramm aus ein anderes 
Frogramm  nachgeladen, so bleiben die Zeiger auf das 
Frogrammende erhalten und das neue Frogramm wird vom Beginn 
an abgearbeitet. In unserem Beispiel wurden wir folgendes 


Ergebnis erhalten: 


188 REM FROGRAMM 1 

110 REM DIESES PROGRAMM IST GROSSER ALS DAS ZWEITE 
120 A = 1000 

150 LOAD "FROGRAMM 2",8 


100 REM PROGRAMM 2 
110 PRINT A 


1000 


Ist das nachgeladene Frogramm jedoch rößer als das ur- 
sprungliche Programm, so würde ein Teil der Variablen über- 
schrieben und wir erhielten undefinierte Werte. Außerdem 
wurde bei Wertzuweisungen an Variablen der Teil des 
Frogramms zerstört, der über die Lange des ersten Programms 


hinaus geht. 


Beim übernehmen vom Variablen gibt jedoch noch zwei Beson- 
derheiten zu beachten: Handelt es sich um Stringvariablen, 
die im ersten Frogramm als Konstanten in Anführungszeichen 
definiert worden sind, so aqibt es Probleme. Bei Strıng- 
varıablen wird ein Zeiger verwendet, der auf den 
eigentlichen Text der Variablen zeigt. Wird eine 
Stringvarıbable nun z.B. mit folgender Anweisung im ersten 


Programm definiert 


100 At = "TEXT" 


so zeigt der Variablenzeiger in den Programmtext. Beim 
Nachladen des nächsten Programms wird nun dieser Zeiger 
nicht verändert. An der ursprünglichen Stelle steht jetzt 
jedoch der neue Frogrammtext, so daß die Variable nun einen 
undefinierten Inhalt hat. Dies können wir jedoch leicht 
umgehen. Wir brauchen bloß dafür zu sorgen, daß der Text aus 
dem Frogramm in den oberen RAM-Bereich kopiert wird, in dem 
die Textvariablen normalerweise stehen. Dies erreichen wird 


z.B. durch folgende Froqrammzeile: 


100 A$ = "TEXT" 4 "" 
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Durch die Addition des Leerstrings wird das kopieren des 
Variableninhalts in den  5tringbereich  erzwungen. Ahnliche 
überlegungen gelten auch bei Funktionsdefinitionen, da auch 
hier der Zeiger auf die Definition ım Frogramm zeigt. Hier 
mussen wir die Funktion in zweiten Frogramm noch einmal 


definieren, z.B. 


100 DEF FN A(X) = 0.5 * EXF (-X#X) 


Halten wir noch einmal fest: 

Wollen wır ein Frogramm nachladen, so können wır dıe 
Variablen nur dann weiter benutzen, wenn das zweite Frogramm 
kleiner als das erste Frogramm ist. Ist das nachgeladene 
Programm größer und sollen keine Variablen übernommen 
werden, können wir uns mit einem Trick aus der Affare 


zıehen: 


Wir brauchen lediglich unmittelbar nach dem Laden den Zeiger 
auf das Ende des BASIC-Frogramms auf den Wert des neuen 
Frogramms setzen. Dies ist mit zwei FOkE-Befehlen möglich, 


da dıe Endadresse nach dem Laden zur Verfügung steht: 


FOKE 45. PEEK(174) : POKE 46. FEEK (175) : CLR 


Der  CLK-Bhefehl ist unbedinat ertorderlich. Diese Zeile 
sollte als erste im nachgeladenen Frogramm stehen. Damıt 
haben wir also die Möglichkeit geschaffen, beliebig große 
Froqramme ohne Variablenübergabe nachzuladen. Diese Methode 
werden wir sicher auch bei Menutechnik wahlen. Die 
Datenuberqabe könnte dann z.B. auch uber Dateien auf 
Diskette geschehen. 

Eine andere nicht so elegante Möglichkeit besteht darin, den 
Ladebefehl in den Tastaturpuffer zu schreiben und das 
Frogramm dann im Direktmodus automatisch nachladen zu 
können. Dazu schreiben wir vor dem Laden den LOAD- und 
RUN-Befehl auf den Bildschirm und füllen den Tastaturpuffer 
mit 'HOME' und Carriage Return. Im Frogramm muß danach eine 
END-Anweisung stehen. Das Betriebssystem holt dann im 


Direktmodus den Inhalt des Tastaturpuffers und liest damit 
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den LOAD- und RUN-Befehl, der zum Laden und Ausführen des 
Frogramms führt. Da dies im Direktmodus geschieht, werden 
automatisch die Endadresse des Froqramms gesetzt, die 
Variablen gelöscht und mit dem nachfolgendem RUN das 
Frogramm gestartet. Der Nachteil hierbei ist jedoch, daß der 
Ladebefehl auf den Bildschirm geschrieben und eine evtl. 
Bildschirmmaske dabei zerstört wird. In der Fraxis sähe das 


SO aus: 


1000 FRINT CHR$ (147) "LOAD"CHR$ (34) "PROGRAMM 2"CHR$*(34)",8" 
1010 FRINT : FRINT : FRINT : PRINT 

1020 FRINT "RUN" 

1030 FOKE 631.19 : FOKE 632,12 : FOKE 632.13 

1040 FOKE 624,12 : FOKE 635.13 : POKE 656.15 

1858 FOKE 198.6 END 


Sie sehen schon, daß dieses Verfahren umständlicher als das 
oben geschilderte Verfahren ist: es ist nur der Vollstandig- 
keit halber erwahnt. Beim ersten Verfahren wäre nur in Zeile 


1000 der programmierte LOAD-Befehl erforderlich: 


1000 LOAD "FROGRAMM 2",8 


und im aufgerufenen Frogramm die beiden FOKE-Befehle und der 


CLR. 


3.3 Mehr Programmkomfort durch Funktionstasten 


Auf der rechten Seite Ihres Commodore 64, griffgünstig 
angeordnet und schön groß, finden Sie die sogenannten 


Funktionstasten mit den Nummern 1 - 8 


Vielleicht haben Sie sich schon oft gefragt, warum diese 
Tasten existieren und wie man sie anwendet. Darauf wollen 


wir Ihnen in diesem Kapitel erschöpfende Antwort geben. 


WARUM Funktionstasten 7? 


Funktionstasten haben die günstige Eigenschaft, daß Sie 
eigentlich keinerlei Bedeutung besitzen. Dies mag sich 
zuerst einmal etwas komisch anhören, erhalt jedoch seinen 
Sinn durch die dadurch gegebene, völlig freie 


Programmierbarkeit. 


Dadurch ist es möglich, Funktionstasten eine freie Belegung 
zu geben. Dabei sollte man als Programmierer aber ein paar 


Spielregeln beachten. 


Zum einen ist es zwar eine wunderbare Sache, jede beliebige 
Funktion auf diese Tasten legen zu können, zum anderen ist 
es aber auch fur den Anwender nicht ganz einfach, sich diese 
Funktionen zu merken. Aus diesem Grund sollte man sich genau 
überlegen, welche Funktionen auf die Tasten gelegt werden. 

Zum zweiten sollten bestimmte Funktionen im gesamten 
Programm, besser noch in allen Programmen, die Sie 


schreiben, die gleiche Bedeutung haben. 


Nehmen wir als Beispiel die beiden Programme TEXTOMAT und 
DATAMAT aus unserem Hause. Beide Programme machen regen 
Gebrauch von den Funktionstasten. Zwei der Tasten haben 
jedoch immer, d.h. in jedem Programmteil und zu jedem 
Zeitpunkt, die gleiche Bedeutung. Die Taste Fi bedeutet 
immer, daß eine Eingabe abgeschlossen ist oder ein Befehl 


ausgelöst wird. Die Taste F2 bedeutet immer, daß die Arbeit 
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in einem Programmteil abgebrochen wird. Mit dieser Taste 


können Sie jeden Programmteil jederzeit verlassen. 


Es ist von enormen Vorteil, daß der Anwender immer die 
gleiche Taste für diese Funktionen betätigen muß. Dadurch 
kann er ohne Umstellungsschwierigkeiten von einem Programm 


zu einem anderen umsteigen. 


Doch warum nehmen wir eigentlich ausgerechnet die 


Funktionstasten ? 


Einen Vorteil, die freie Belegbarkeit, haben wir bereits 
oben erwähnt. Es ist erheblich einfacher, auch vom Programm 
her, die Taste Fi abzufragen als die Taste "f" für fertig. 


Diese Taste wird ja auch zur normalen Texteingabe benötigt. 


Da die Funktionstasten für die normale Arbeit keinerlei 
Bedeutung haben, sind sie auch jederzeit abfragbar, ohne daß 
der normale Programmablauf gestört wird. Im Prinzip könnten 
Sie nach jeder Programmzeile zu einem Unterprogramm 
verzweigen, das die Funktionstasten abfragt. Inwieweit dies 


sinnvoll ist, ist natürlich ein anderes Problem. 


Ein weiterer erheblicher Vorteil ist die Bedienung der 
Tasten selber. Die Tasten sind griffgünstig auf der rechten 
Seite angeordnet und schön groß ausgefallen. Dadurch sind 
sie leicht zu erreichen und man kann eine Fehlbedienung fast 


gänzlich ausschließen. 


Nachdem wir nun geklärt haben, warum Funktionstasten zu 
benutzen sind, wenden wir uns nun der Frage zu, WIE die 


Abfrage zu bewerkstelligen ist. 


Das große Geheimnis läßt sich ganz einfach lösen. Die 
Funktionstasten haben wie alle anderen Tasten auch einen 
bestimmten Zahlencode, der mittels einer einfachen 


GET-Schleife abgefragt werden kann. 
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Die Codes sind die Folgenden 1 


Fi = 133 
F2 = 137 
F3 ‘= 134 
F4 - 138 
F5 - 135 
F6 - 139 
F7 = 156 
FB: -= 140 


Diese Werte brauchen Sie in Ihrem Programm nur abzufragen. 


Dies könnte zum Beispiel so aussehen 


10 GET ES : IF E$=CHR$ (133) THEN 1000 : REM F1 
20 IF E$=CHR$ (137) THEN 9999 ; REM F2 
SO GOTO 10 


1000 REM Hier geht das Programm los 


9999 END : REM Hier ist das Programm zu Ende 


In Zeile 10 wird die Funktionstaste Fi abgefragt. Laut 
Tabelle ist der Code für Fi 133. Wenn Fi gedrückt ist, so 
hat E$ diesen Wert. Dies wird abgefragt und entsprechend im 
Progr amm verzweigt. In Zeile 20 wird genauso die 


Funktionstaste F2 abgefragt. 


Sie sehen, daß das Problem der Funktionstastenabfrage 
eigentlich ganz einfach zu lösen ist. Sie fragen diese 
Tasten einfach wie alle anderen Tasten ab. 

Die universelle Verwendbarkeit ergibt sich dann daraus, daß 


diese Tasten von Haus aus mit keiner Bedeutung belegt sind. 
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3.4 Testen Sie ihr Programm aus - Anwender sind keine 


Versuchskaninchen 


Nichts ist wohl in der Programmierung schlimmer, als ein 
Anwender, der Sie laufend telefonisch mit neuen 
Fehlermeldungen beglückt, und Sie dann irgendwann vielleicht 
sogar mit seinem Anwalt bedroht. Das muß und darf nicht so 
sein ! Professionelle Programme sollen, bevor sie in die Hand 
des späteren Anwenders gelangen, sorgfältig ausgetestet 
werden. Was zunächst nach lästiger Mehrarbeit aussieht, ist 
in Wirklichkeit eine wichtige Arbeitserleichterung. Dies gilt 
natürlich insbesondere dann, wenn Sie ein und dasselbe 


Programm mehreren Anwendern zur Verfügung stellen. 


Der Vorgang des Testens beginnt sinnvollerweise bereits bei 
der Programmerstellung. Testen Sie jeden Programmteil und 


jedes Unterprogramm nach Fertigstellung zunächst isoliert mit 


willkürlich gewählten Daten und dann erst im 
Programmzusammenhang. So ersparen Sie sich später eine 
langwierige Fehlersuche. Der Vorteil einer strukturierten 


Programmierweise und die Arbeit mit erprobten Bausteinen 
kommen hierbei voll zur Geltung. Sehr hilfreich für das 
Austesten von Programmen sind die im COMMODORE 64 Befehlssatz 
leider nicht vorhandenen sogenannten TOOLKIT-Befehle, wie 
z.B. TRACE, FIND und DUMP. Besonders der Befehl TRACE, der 
die jeweiligen Programmbefehle bei der Ausführung auf dem 
Bildschirm anzeigt, erweist sich als sehr nützlich. Die 
TOOLKIT-Funktionen sind in den unterschiedlichen zum 
COMMODORE 64 erhältlichen Befehlserweiterungen enthalten. 
Achten Sie bei der Auswahl der entsprechenden 
Befehlserweiterungen unbedingt darauf, daß die TRACE-Funktion 
wahlweise auch Einzelschrittverarbeitung zuläßt. 

Sehr wesentlich ist das Erstellen der Dokumentation paralell 


zur Programmierung. Eine erst nach Programmfertigstellung 


verfaßte Dokumentation weist nicht nur oft 
Vergeßlichkeitslücken auf, sondern ist schon fast 
Verschwendung. Bei der Fehlersuche, aber auch bei der 
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Verhinderung der Fehlerentstehung ist die Dokumentation ein 
sehr wesentliches Hilfsmittel. Denken Sie z.B. einmal an den 
häufigen und typischen Fehler der Mehrfachdefinition von 
Variablen. Mit einer ordentlich geführten Variablenliste kann 
soetwas nicht passieren. Auch Dateibeschreibungen und Bild- 
schirmmasken sollten vor der eigentlichen Programmierung 
erstellt werden. Für viele Programierer ist leider das 
Erstellen einer Dokumentation eine lästige Pflichtübung, die 
lange nach Programmerstellung mehr schlecht als recht 
vorgenommen wird. Gewöhnen Sie sich diese Unart bitte gar 


nicht erst an |! 


Bei hartnäckigen Fehlern, die auch mit intensiver Testarbeit 
manchmal nicht oder nur sehr schwer zu finden sind, kann es 
durchaus ratsam sein, die entsprechende Problemstellung noch 
einmal anders programmtechnisch zu lösen. Leider kann es auch 
immer wieder vorkommen, daß ein solcher unerklärlicher Fehler 
auf eine Unzulänglichkeit im Betriebssystem des COMMODORE 64 
oder seiner Peripherie zurückzuführen ist. Da helfen dann nur 
Programmänderungen Ihrerseits, die derartige Fehlerquellen 


umgehen. 


Noch ein anderer Punkt sollte beim Testen, vor allem des 
fertigen Programms, berücksichtigt werden. Hierzu ein 
aktuelles Beispiel: das in diesem Buch dargestellte 
Dateizugriffsverfahren QUISAM wurde von Ersteller Klaus 
Gerits nach allen Regeln der Kunst getestet und für 
fehlerfrei befunden. Damit wäre es beinahe in der 
ursprünglichen Version in dieses Buch gekommen. Doch wir 
hatten (geplantes) Glück. Eins der im letzten Teil des Buches 
vorhandenen Anwendungsprogramme sollte den Gebrauch von 
QUISAM illustrieren. So schrieb Wolfgang Schellenberger auf 
Basis von QUISAM eine Literaturverwaltung. Und siehe da - er 
brachte sein Programm zunächst nicht ans Laufen, da in QUISAM 
doch noch zwei kleine Fehler steckten. Diese waren bisher 
unentdeckt geblieben, da sie nur bei ganz bestimmten 
Konstellationen auftraten. Aus eigener Erfahrung können wir 
Ihnen deshalb nur empfehlen, Programme nicht nur selbst 


ausführlich und eingehend zu testen, sondern sie auch noch 
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einem oder mehreren unvoreingenommenen Dritten zum Test zu 
geben. Auch bei der Programmierung gibt es das Problem der 
"Betriebsblindheit", wodurch manchmal sogar gravierende 


Fehlermöglichkeiten nicht erkannt werden. 


Vorsicht ist auch geboten bei nachträglichen Änderungen und 
Verbesserungen an fertigen Programmen. So manch ausgereiftes, 
fehlerfreies Programm wurde aufgrund eines neuen 
Geniestreiches seines Erstellers wieder zur ärgerlichen 
Fehlerquelle. Klären Sie deshalb vor einer Programmänderung 
anhand von Dokumentation und Variablenliste sorgfältig ab, 
auf welche Programmteile diese Änderung alles Einfluß nimmt. 
Natürlich muß auch jede änderung wieder entsprechend 
dokumentiert werden. So können Sie dann unliebsame 
überraschungen weitgehend vermeiden. Vor steten Änderungen 
eines von Dritten benutzten Programms sei ohnehin gewarnt. 
Erheblich sinnvoller ist es, in größeren Zeitabständen 
komplette Neufassungen Ihres Programms herauszugeben, die 
dann in ausgetesteter Form alle änderungen enthalten. Auch 
der Anwender Ihres Programms wird es schätzen, wenn er sich 


nicht laufend umgewöhnen muß 
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3.5 Die Bedienungsanleitung - 


das Aushängeschild eines Programmes 


Viele Programmierer schreiben zwar ganz hervorragende 
Programme, vergessen dann aber leider, daß diese Programme 
auch für andere, normalsterbliche Menschen zugänglich sein 
sollen. Daß dies anhand einer guten und ausführlichen 
Dokumentation und Bedienungsanleitung geschieht scheinen die 


wenigsten bisher gehört zu haben. 


Ebenfalls zu beachten ist, daß der Käufer eines Programmes 
in 99% aller Fälle zuerst einmal die Bedienungsanleitung 
durchliest und der erste Eindruck vom Programm also aus der 
Bedienungsanleitung resultiert. Sehr oft werden besonders 
preiswerte Programme nicht im Geschäft vorgeführt, so daß 
der Käufer die Kaufentscheidung einzig und allein von der 
Bedienungsanleitung abhängig macht. Dieses Kriterium ist 
unter kommerziellen Gesichtspunkten sicher nicht zu 


vernachlässigen. 


Doch neben dem  geschaftlichen Aspekt bleibt auch zu 
berücksichtigen, daß eine gute Bedienungsanleitung dem 
Programmierer auch viele Rückfragen seitens der Anwender 


erspart. 


Da Sie nun hoffentlich erkannt haben, wie immens wichtig 
eine gute Bedienungsanleitung ist, fragen Sie sich sicher, 


wie eine solche auszusehen hat. 


Dazu müssen wir erst einmal klären, welchen Anforderungen 


eine Bedienungsanleitung genügen muß. 


Zuerst einmal muß eine Bedienungsanleitung absolut für den 
Anfänger geschrieben sein. Wenn Sie eine solche schreiben, 
müssen Sie sich grundsätzlich vorstellen, daß ein absoluter 
Laie sich vor den Computer setzt und versucht mit Ihrem 
Programm zu arbeiten. 


Dies bedeutet, daf? Sie zuerst einmal alle im Text 
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verwendeten Fachbegriffe erklären müssen. überhaupt sollten 
Sie sich davor hüten, allzuviele Fachbegriffe in den Text 
aufzunehmen. Manches läßt sich sicher nicht vermeiden, aber 
beachten Sie immer, daß für Sie als Profi vieles 
selbstverständlich ist, was für Anfänger absolut nicht zu 
verstehen ist. Wie gesagt, sollten Sie ALLE Fachbegriffe zu 


Beginn des Handbuches erklären. 


Neben der leichten Verständlichkeit ist auch eine klare und 
übersichtliche Gliederung des Handbuches von enormer 
Wichtigkeit. Dazu gehören ein ausführliches 
Inhaltsverzeichnis, ein alphabetisches Stichwortverzeichnis 
und eine saubere thematische Gliederung des Textes. Der 
Anwender muß in der Lage sein, ohne großen Aufwand jede 


aufkommende Frage klären zu können. 


Der dritte wichtige Faktor ist, daß Sie immer mit 
Ermüdungserscheinungen des Lesers rechnen müssen. Um dem 
entgegenzuwirken sind neben den vielen selbstverständlichen 
Beispielen auch Grafiken und Bildschirmausdrucke nicht zu 
vernachlässigen. Die Optik eines Bedienungshandbuches wird 
hauptsächlich von solchen auffälligen Grafiken bestimmt. 
Dies bedeutet, daß diese natürlich sauber und exakt sein 
müssen und aber auch den Leser anregen sollen. 

Rechnen Sie immer damit, daß der Leser ermüdet. Kleine 
Erfolgserlebnisse oder Grafiken, die sofort ins Auge fallen, 


wirken diesem Phänomen sehr gut entgegen. 


Doch wie bauen wir nun ein solches Handbuch auf? 


Im folgenden stellen wir Ihnen einen bewährten und 
erfolgreichen Aufbau vor, der natürlich keinerlei Anspruch 
auf Vollständigkeit erhebt und auch sicher nicht unbedingt 
der Weisheit letzter Schluß ist. Es hat sich aber gezeigt, 
daß gerade Anfänger mit diesem Aufbau ganz hervorragend 


zurechtkommen. 
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Im Groben gesehen besteht bei dem vorgeschlagenen Aufbau das 
Handbuch aus zwei Teilen. Im ersten Teil, dem sogenannten 
übungshandbuch, wird der Anwender schrittweise anhand von 


Beispielen in die Arbeit mit dem Programm eingeführt. 


Dies beginnt mit der Erläuterung der wichtigsten 
Fachbegriffe und beschreibt zuerst einmal, wie das Programm 
gestartet wird. Dieser enorm wichtige Punkt findet sich zwar 
in fast allen Handbüchern, doch meistens nicht am Anfang. 
Zur Startprozedur gehört auch, wie der Rechner und seine 
Peripherie eingeschaltet wird, wie die Diskette einzulegen 
ist und wie das Programm anschließend gestartet wird. Dabei 


ıst jeder Tastendruck zu erklären, z.B.: 


Legen Sie die Diskette in Ihr Laufwerk ein, 


schließen Sie die Laufwerkstür und tippen Sie ein: 


LOAD"*",8 


Betatigen Sie nun die Taste mit der Aufschrift 


"RETURN", im folgenden einfach  "RETURN"-Taste 


genannt. 


Nach ein paar Sekunden blinkt der Cursor wieder 


auf dem Bildschirm. Tippen Sie nun ein : 


RUN 


Betätigen Sie wieder die "RETURN"-Taste. 


Auch wenn Ihnen diese haarkleine Erklärung jedes einzelnen 


Arbeitsschrittes etwas überflüssig vorkommt, so bedenken 


Sie, daß Sie damit rechnen müssen, daß absolute Laien das 


Programm bedienen. 


Nach der Startprozedur können Sie im Handbuch ein paar 
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allgemeine Hinweise zu dem Programm geben. Dazu gehört, wie 
das Programm arbeitet und was eventuell besonders zu 


beachten ist. 


Dann sollten Sie sofort anhand eines einfachen Beispieles in 
die Arbeit einsteigen. Es empfiehlt sich, daß übungshandbuch 
in mehrere Lektionen einzuteilen, entsprechend dem Vorgehen 


im Programm. 


Es ist nicht Sinn des Ubungshandbuches, dem Anwender in alle 
Feinheiten und Tricks einzuführen, sondern er soll alle 
wichtigen (aber auch nur die) Teile kennenlernen und damit 
umgehen können. Dabei gilt es zwei Dinge zu beachten. Zum 
einen muß alles absolut narrensicher beschrieben sein, wozu 
auch gehört, daß auf eventuell mögliche Fehlbedienungen 
hingewiesen wird und wie Abhilfe zu schaffen ist. Zum 
zweiten ist es ungeheuer wichtig, daß der gesamte Stoff in 
kleinen und leicht verdaulichen Happen mitgeteilt wird. Der 
Anwender muß immer wieder kleine Erfolgserlebnisse haben. Es 
gibt nichts besseres wie ein Bildschirmdruck im Handbuch, 
den der Anwender genauso auch auf seinem Schirm hat. In 
diesem Fall freut sich jeder, daß er alles richtig gemacht 
hat und kommt gar nicht auf die Idee, mit der Arbeit 
aufzuhören. Eine gute Bedienungsanleitung erkennt man daran, 


wie lange jemand ununterbrochen damit arbeitet. 


Noch einmal zusammenfassend : 


Das  übungshandbuch soll den Anwender schrittweise in die 
Arbeit mit dem Programm einführen. Dabei kann auf die 
Feinheiten verzichtet werden. Wichtig ist, daß viele 
Beispiele verwendet werden, der Anwender immer wieder kleine 
Erfolgserlebnisse hat und das Banze absolut leicht 


verständlich ist. 


Der zweite Teil des Handbuches besteht aus dem sogenannten 


Anwenderhandbuch. Dieses enthält nach Themen geordnet eine 
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Beschreibung aller Programmteile. Zu dieser Beschreibung 
gehört, wie man überhaupt in diese Teile gelangt, wozu sie 
dienen, wie sie bedient werden, was man falsch machen kann, 


wie man sie wieder verläßt. 


Wichtig ist, daß in diesem Teil des Handbuches wirklich 
jedes Detail erklärt wird. Nichts, und erscheint es auch 
noch so überflüssig, darf ausgelassen werden. Jeder denkbare 
Fall muß berücksichtigt und ausführlich erläutert werden. 

Eigentlich kann dieser Teil des Handbuches gar nicht 
umfangreich genug sein, doch gilt es auch dabei zu beachten, 
daß der Anwender sich durchfinden muß. Dazu dient neben 
einer einsichtigen und klaren Gliederung, daß trotz der 
geforderten Ausführlichkeit nichts über flüssiges und 
Verwirrendes sich im Text findet. Hier müssen Sie als 
Programmierer selber wissen, was notwendig ist und was nicht 


und einen guten Kompromiß finden. 


Das Anwenderhandbuch sollte auch eine ausführliche 
Fehlerliste enthalten, die jede mögliche Fehlermeldung 
auflistet, die mögliche Ursache beschreibt und was dagegen 


zu tun ist. 


Ein ausführliches Inhaltsverzeichnis gehört natürlich zu 
jedem guten Handbuch. Leider nicht immer selbstverständlich 
ist ein alphabetisches Stichwortverzeichnis. Dieses sollte 
alle wichtigen Begriffe, Programmnamen, Befehle und so 
weiter versehen mit der Seitennummer, unter der sich die 


Erläuterung befindet, enthalten. 
Oft wünschenswert ist auch noch eine kurze Zusammenfassung 
aller wichtigen Befehle mit einer zu jedem Befehl nur ein 


paar Worte umfassenden Erläuterung. Die Notwendigkeit einer 


solchen Kurzreferenz ist aber vom Programm abhängig. 


Fassen wir noch einmal zusammen : 


206 


Wichtig ist zuerst einmal die gute Verständlichkeit des 
Handbuches. Dazu gehört die Erklärung aller Fachbegriffe. 
Wenn Sie Ihr Handbuch dann noch vernünftig gliedern, keinen 
Programmteil vergessen und Wert auf die nicht zu 
unterschätzende optische Gestaltung legen, steht einem guten 


Handbuch nichts mehr im Wege. 


Sicher sind dies alles keine sehr leicht zu erfüllenden 
Forderungen, wie an den auf dem Markt befindlichen 
Bedienungsanleitungen oft zu ersehen ist. Doch ein Programm 
steht und fällt mit seiner Anleitungen, so daß Sie sich 


dafür einfach genügend Zeit nehmen müssen. 
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3.6 TOP-DOWN oder BOTTOM-UP ? 


Bei großen Programmen stellt sich immer die Frage, in 
welcher Reihenfolge die verschiedenen Teilaufgaben erledigt 
werden sollen. Für die zwei einzig sinnvollen Methoden haben 
sich die Begriffe TOP-DOWN- und BOTTOM-UP-Programmierung 


eingebürgert. 


TOP-DOWN-Programmierung bedeutet, daß ausgehend von einer 
groben Struktur das Programm nach und nach in den einzelnen 
Teilen fertiggestellt wird. Bei einer Dateiverwaltung sähe 
dies zum Beispiel so aus, daß man zuerst ein Hauptmenue 
programmiert, von dem aus alle Programmteile aufgerufen 
werden. Diese Programmteile bestehen zu Beginn erstmal nur 
aus einem Rücksprung. 

Der nächste Schritt ist nun, sich in Jedem Programmteil zu 
überlegen, wie diese zu untergliedern sind und weitere 
Unter progr amme aufzurufen. Durch diese Arbeitsweise 
reduziert man sein großes Gesamtproblem auf viele kleine und 
einfach zu losende Einzelprobleme. Die schrittweise 


Verfeinerung wird an dem folgenden Diagramm recht deutlich. 


Diese schrittweise Verfeinerung läßt sich besonders gut in 
den Vorarbeiten bei der Erstellung der Flußdiagramme oder 


Struktogramme anwenden. 


Die BOTTOM-UP-Programmierung beginnt auf der untersten 
Ebene. Man schreibt häufig benutzte Programmteile, z.B. 
Lesen oder Entpacken eines Datensatzes zuerst einmal als 
Unterprogramm. Diese können dann von Programmteilen einer 
höheren Stufe wieder aufgerufen werden und diese selbst 
werden auch wieder aufgerufen. Im günstigsten Fall besteht 
das Hauptprogramm dann nur noch aus einer Reihe von 
Unterprogrammaufrufen. 


Auch hierzu wieder ein Diagramm: 
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In der Praxis verwendet man eine Mischform aus den beiden 


Programmiertechniken. Zuerst wird man bei größeren 
Programmen den groben Ablauf festlegen und die erste 
Unterprogrammebene schaffen. Dann empfiehlt es sich, 


einzelne Module zu programamieren und auszutesten, auch um 
festzustellen, ob sich die Idee so überhaupt realisieren 
läßt. 

In der Schlußphase trifft man sich dann in der Mitte mit 
einem hoffentlich fehlerfreien Programm. 

Bei kleineren Programmen dagegen kann man meist direkt mit 
dem Hauptteil bzw. den einzelnen Routinen beginnen und das 


Programm dann immer weiter ausbauen. 


3.7 Logische Felder - 8 Entscheidungen pro Byte 


Oft haben Sie in einer Dateiverwaltung Eingabefelder, die 
nur eine Ja/Nein-Entscheidung verlangen. Zum Beispiel 


mannlich/weiblich oder verheiratet ja/nein und so weiter. 


In diese Felder, die auf einer Karteikarte oftmals 
angekreuzt werden, sind wie gesagt nur zwei Eintragungen 
zulässig. Aus diesem Grund wäre es mehr als unsinnig, ein 
ganzes Byte für eine einzige solche Entscheidung zu 


verschwenden. 


Wie Sıe sicher wissen, besteht ein Byte aus 8 Bits, von 
denen jedes entweder den Wert 1 oder O haben kann. Insgesamt 
können Sie also 8 Entscheidungen in einem solchen Byte 
unterbringen. Doch wie fassen wir dies nun programmtechnisch 


an. 


Dazu müssen wir uns etwas der Boolschen Algebra bedienen. Es 
soll hier nun keine tiefe mathematische Abhandlung über 
diese folgen. Wer tiefer in dieses interessante Gebiet 
einsteigen möchte, sei auf die einschlägige mathematische 
Fachliteratur verwiesen. Uns interessieren an dieser Stelle 
nur die praktische Anwendung und Auswirkung. Wir benötigen 


dazu nur zwei Operationen, die AND- und die OR-Funktion. 


Außerdem müssen wir noch die Wertigkeiten der 8 Bits pro 


Byte kennen. Beginnen wir damit : 


128 64 32 16 8 4 2 1 


Die acht Zahlen geben diese Wertigkeiten an. Sie erkennen 


schon, dafi es die Zweierpotenzen von O bis 7 sind. 


Um nun z.B. das erste Bit auf den Wert eins zu setzen, 
bedienen wir uns der OR-Funktion. Nehmen wir an, die 
Variable B soll die 8 Entscheidungen speichern. Um dem 


ersten Bit den Wert 1 zuzuweisen, oderieren wir die 


Variable. 


B = BOR 1 


Damit ist das erste Bit gesetzt, egal ob es vorher gesetzt 


war oder nicht. 


Nehmen wir an, B hat den Wert 127, dies sieht von der 


Bitstruktur her so aus: 


11111110 


Die oben angegebene Rechnung hätte zur Folge, daß das Bild 


nun so aussieht: 

11111111 

Die Variable B hat nun den Wert 255 

Wollen Sie einem beliebigen Bit den Wert eins zuweisen, so 
nehmen Sie einfach die Wertigkeit dieses Bits und oderieren 
die Variable B damit. Noch ein Beispiel: B soll den Wert 163 
haben : 


11000011 


Wir wollen nun das S. Bit auf 1 setzen, dieses hat die 


Wertigkeit 16: 


B = B OR 16 


Danach sieht die Bitstruktur folgendermaßen aus : 


11010011 


B hat nun den Wert 163 + 16 = 179. 


W 
pà 
[3] 


Ahnlich ist die Vorgehensweise beim Löschen eines Bits, d.h. 
das Bit soll den Wert O erhalten. 


Allgemein läßt sie sich so beschreiben : 


Berechne 255 minus der Wertigkeit des Bits und undiere die 


Variable B damit. 


Dazu wieder eın Beispiel : 


B soll den Wert 161 haben, Bit 6 soll gelöscht werden. 


Die Bitstruktur sieht folgendermaßen aus : 


10100001 


Wir rechnen : 255 - 32 = 223 


Nun wird undiert : 


B = B AND 223 


Wir erhalten : 


10000001 


B hat nun den Wert 161 - 32 = 129 


Zum Schluß noch ein kurzes Programm, das den praktischen 


Einsatz dieser Möglichkeit Entscheidungen zu speichern, 


demonstriert. 


Da die Variable B keinen Wert größer als 255 enthalten kann, 


ist es möglich, sie mit Hilfe des CHR$-Befehls in nur einem 


Byte abzuspeichern und somit sehr platzsparend 


unterzubringen. 
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3.8 Das Datum - der besondere Datentyp 


Das Datum wird in fast  5;2sder kommerziellen Anwendung 
benötigt, erfordert aber wegen seiner besonderen Struktur 
eine Spezialbehandlung. 

Diese beginnt bei der Art der Speicherung, geht über das 
Sortieren und über die Berechnung eines bestimmten 
Wochentages nach beliebigem Datum. Alle drei Fälle wollen 


wir hier nacheinander behandeln. 


Gehen wir davon aus, daß das Datum in folgender Form 


vorliegt: 


Die Variable T enthält den Tag, die Variable M den Monat und 
J das Jahr. Die einfachste Art und Weise der Speicherung 
ware nun, die Variablen einfach so abzuspeichern. Dies kann 
aber bis zu 8 Bytes pro Datum erfordern, je nach Art des 
Datums. 

Durch die besondere Struktur des Datums ist es aber möglich, 
eine platzsparendere Art der Speicherung zu benutzen. Fur 
den Tag sind nur Zahlen zwischen 1 und 31 zulässig, für den 
Monat zwischen 1 und 12, für das Jahr zwischen O und 99, 
wenn wir das Jahrhundert weglassen. Da keine dieser Zahlen 
die magische Grenze von 255 überschreitet, könnte man diese 
durchaus mit Hilfe des BASIC-Befehls CHR$ in Zeichen 
umwandeln. 

Eine solche platzsparende Speicherung des Datums konnte 


folgendermaßen aussehen: 


1000 DAS = CHR#(J) + CHR$(OMD + CHR$(T) 


Damit haben Sie das Datum in nur 3 Bytes komplett 


abgespeichert. 


Der umgekehrte Weg, das Datum wieder in die ursprüngliche 


Form bringen, ist auch ganz einfach : 


2000 J = VAL(LEFT# (DAS, 1)) 
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2010 M = VAL (MID$ (DA$,2,1)0) 
2020 T = VAL (RIGHT# (DAS,1)) 


Vielleicht haben Sie sich gewundert, daß die Variable DA$ 
das Datum ın der Reihenfolge Jahr, Monat, Tag speichert. 
Dies findet seine Begründung im Sortieren, das genau in 


dieser Reihenfolge stattfinden muß. 


Durch diese Art der Speicherung ist es nämlich äußerst 
einfach geworden, nach dem Datum zu sortieren, da es nun wie 
Jede andere Zeichenkette, zum Beispiel ein Name, behandelt 


werden kann. 


Wenn Sıe eine Liste von Daten haben, so können Sie diese nun 
in ein Array abspeichern und dann nach einem der bekannten 


Algorithmen sortieren (siehe Kapitel 2) 


Oft stellt sich auch das Problem, nach einem vorgegebenen 
Datum den zugehörigen Wochentag zu berechnen. Das folgende 
Programm berechnet jeden beliebigen Wochentag des 


Gregorianischen Kalenders. 


Das Programm ist als Unterprogramm ausgelegt. Es verlangt 
als Eingabeparameter den Tag in TA, den Monat in MO und das 
Jahr in JA. Wichtig ist, daß das Jahr vollständig, d.h. 
vierstellig angegeben wird, z.B. 1984. 


Es liefert den Wochentag in T$ zurück. Ebenfalls kann in IN 
eine Zahl zwischen OÖ und 6 abgefragt werden, die den Code 


fur den Wochentag angibt. 


HJ 
μα 
ay 


100 REM WULHEN TAGSBERECHNUNG 

110 INDEX = TAG 

120 INDEX = INDEX + 31 * ( MO - 1 D 

150 INDEX = INDEX + 365 * JAHR 

140 IF MO > 2 THEN INDEX = INDEX - INT( 0.4 * MO + 2.5 ) : GOTO 160 
150 JAHR = JAHR -1 

160 INDEX = INDEX + INT ( JAHR / 4) 

170 X = INT ( JAHR / 100 ) + 1 

180 INDEX = INDEX - INT ( 0.75 * X ) 

190 INDEX = INDEX - ( INT ( INDEX / 7 ) * 7) 

200 RESTORE 

210 FOR J = ο TO INDEX 

220 READ T$ 

250 NEXT J 

240 RETURN 

300 DATA "SAMSTAG" , "SONNTAG" „ "MONTAG" , "DIENSTAG" , "MITTWOCH" 
310 DATA "DONNERSTAG" „ "FREITAG" 


READY. 
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3.9 Daten gepackt speichern - mehr als 255 Zeichen pro 


Datensatz 


Beim COMMODORE 44 liegt die maximale Größe für einen 
Datensatz bei 255 Zeichen. Dies ist in der internen 


8-Bit-Struktur des Rechners begründet. 


Sollen mehr als 255 Zeichen pro Datensatz gespeichert 
werden, so muß diese physikalische Grenze irgendwie umgangen 


werden. 


Dazu gibt es zwei Möglichkeiten : 


1.) Die physikalische Grenze wird logisch umgangen. Dies 
bedeutet, daß zwei oder mehr physikalische Datensätze zu 
einem logischen Datensatz zusammengefaßt werden. Diese 
Vorgehensweise empfiehlt sich besonders, wenn viel Text 


gespeichert werden muß. 


2.) Die andere Möglichkeit ist, Daten zu packen. Dies 
bedeutet, daß mehr Informationen in einem Byte gespeichert 
werden. Grundsätzlich besteht diese Möglichkeit immer, wenn 
Einschränkungen in der Darstellung hingenommen werden oder 


nur bestimmte Wertebereiche zugelassen sind. 


Zwei solcher Fälle haben wir bereits in diesem Buch 
besprochen. Das Datum, bestehend aus 8 Zeichen, können wir 
dank des eingeschränkten Wertebereichs in nur 5 Zeichen 


unterbringen (s. Kapitel 3.7) 


Logische Felder haben einen extrem eingeschränkten 
Wertebereich, sie kennen nur die Werte wahr (1) und falsch 
(0). Daher lassen sich in einem Byte 8 solcher Felder 


unterbringen (s. Kapitel 3.8) 


Besonders gut lassen sich auch numerische Felder 


komprimieren. Hier spielt es keine Rolle, ob diese Felder 


nur ganzzahlige Zahlen oder auch Dezimalbrüche enthalten 


dur fen. 


Um eine Zahl zu speichern werden maximal 4 Bits benotigt : 


0000 - 
0001 = 
0010 = 
0011 = 
0100 = 
0101 = 
0110 = 
olll = 
1000 = 
1001 = 


ο ON ο UA 4 N- o 


Es bleiben noch & Kombinationen übrig, die als Code fur 


Vorzeichen und Dezimalpunkt verwendet werden können, 2.B.: 


1010 
1011 mos 


Da ein Byte bekanntermaßen aus 8 Bits besteht folgt daraus, 


daß sich zwei Zahlen darin unterbringen lassen. 


Das folgende Programm soll dies demonstrieren. Es verlangt 
die Eingabe einer zweistelligen Zahl und gibt den gepackten 


Code aus. 


100 Z#="" 

110 FOR 151 TO 2 

120 GET E$ : IF E$ "O" OR E$ "9" THEN 120 
130 Zë = Z$ + ES : NEXT I 

140 B = (ASC (LEFT#(Z%$,1))—-48) #16 

150 B = B + ASC(RIGHT$(Z£$,1)0)—48 

160 B$ = CHR$(B) : PRINT B 
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In den Zeilen 110 bis 130 werden zwei Zahlen als String 


eingelesen und in Z$ zwischengespeichert. 


In Zeile 140 und 150 werden diese dann umgerechnet und 
gepackt. Dann wird vom ASCII-Code der Zahlen, der zwischen 
48 und 57 liegt, 48 subtrahiert. Man erhält eine Zahl 
zwischen O und 9. Um diese in die oberen 4 Bits zu 


transferieren, wird die Zahl mit 16 multipliziert. 


Anschließend wird die zweite Zahl genauso behandelt, nur daß 


die Multiplikation nicht durchgeführt wird. 


Damit ist ain B der Code für die zwei Zahlen berechnet 
worden. Mit Hilfe des CHR$-Befehls wird die Zahl, die 
zwischen O und 255 liegen muß, in einen String von der Lange 
1 umgewandelt. Damit haben wir zwei Zahlen in einem Byte 


gespeichert. 


Nun der umgekehrte Weg, das Entpacken. Die Zahl steht wieder 
in B, die Zahlen werden in Klarschrift in der Variablen Z$ 


gespeichert. 


Sie können dieses Programm einfach an das Vorherige 
anhängen. Es erscheinen dann nacheinander der Code für die 


zwei Zahlen und danach die Zahlen wieder in Klarschrift. 


200 Z$-"" 

210 Z = B AND 240 : Z = Z + 48 : Z$ = CHR$(Z) 

220 Z = B AND 15 : Z = Z/16 + 48 : Z$ = Z$ + CHR$(Z) 
230 PRINT 7% 


Sie sehen, der umgekehrte Weg ist einfacher. Zuerst werden 
die unteren vier Bits mit Hilfe des AND-Befehls ausgeblendet 


und dann die Rechnung aus dem vorherigen Programm rückwärts 


ausgeführt. Dann werden die oberen 4 Bits ausgeblendet, 


wieder umgerechnet und in Z$ abgespeichert. 


Naturlich lassen sich auch Buchstaben packen, allerdings 
nur, wenn Einschränkungen in der Darstellung in Kauf 
genommen werden. So kann z.B. nur Groß- oder nur 
Kleinschreibung erlaubt sein. Damit lassen sich 1 oder 2 
Bits pro Buchstabe sparen. Dies mag auf den ersten Blick 
wenig erscheinen, summiert sich aber bei größeren 


Datenbeständen. 


Sie sehen, es gibt vielfältige Möglichkeiten, Daten zu 
packen. Welche die geeignete ist, hängt von Ihrem speziellen 
Anwendungsfall ab. Sicher fallen Ihnen noch mehr 


Möglichkeiten ein. 


KAPITEL 4 : PROGRAMMBEISFIELE 


4.1 Einleitung 


Zu einem Buch wie "64 für den Profi” gehört nicht nur eine Menge 
Theorie, sondern auch die Anwendung der einzelnen Kapitel soll 
Ihnen gezeigt werden. Wir haben zu den verschiedenen Beispielen, 
die Sie in diesem Buch gesehen haben Frogramme entworfen, die 
Ihnen die Umsetzung verschiedener Techniken in ein Programm 
verdeutlichen sollen. Da ist zum Beispiel eine parametrisierte 
Lagerverwaltung, die Ihnen zeigt, wie sich Parameter-Dateien in 
der Praxis einsetzen lassen. Außerdem zeigt Ihnen dieses Programm 
auch die Verwendung von relativen Dateien auf dem Commodore 64 
zusammen mit der Floppy 1541. Oder, um noch andere Programme zu 
nennen, unser Literaturverzeichnis-Programn, in dem Sie eine 
"neue" Methode der Dateiverwaltung finden: Von uns QUISAM genannt 
(QUISAM steht hier fur QUası ISAM, also eine index-sequentielle 
Dateiverwaltung. Aber auch eine kleine Textverarbeitung finden 
Sie in diesem Kapitel - Sie können zwar mit diesem Programm keine 
Textbearbeitungssystem ersetzen, aber trotzdem ist auch dieses 
Programm, wie alle anderen auch, nicht nur als Beispielsprogramm 
gedacht sondern auch für den direkten Einsatz zu benutzen. Damit 
Sie als Programmierer keine Schwierigkeiten haben, diese 
Programme gegebenenfalls abzuandern, damit Sie auch Ihren 
speziellen Anforderungen genügen, haben wir uns bemüht, alle 


Programme sehr einfach und verständlich zu halten. 


Haben Sie bitte Verständnis dafür, daß nicht jeder Anwender auf 
"seine Kosten" kommt - eine universelle Lösung für Ihre Probleme 
können wir hier selbstverständlich auch nicht anbieten. Das ist 
aber auch nicht das Ziel der nachfolgenden Beispielprogramme. 
Tippen Sie diese Programme nicht einfach ab, sondern steigen Sie 
tiefer in die Struktur der Programme ein und ändern diese 
entsprechend Ihren eigenen Vorstellungen. So können Sıe nicht nur 
das in den ersten 3 Kapiteln gerlernte vertiefen, sondern auch 


gleichzeitig auf Basis dieser Programme komplexere, auf Ihre 
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Bedurfnisse zugeschnittene Anwendungen erstellen. Da aber, wie 
oben schon beschrieben, die Programme leicht verständlich 
gehalten wurden, dürfte jeder einigermaßen ertahrene 
Programmierer (und Profis wollen wir ja alle sein oder werden), 
die verschiedenen Frogramme abändern können. Außerdem werden zu 
den einzelnen Programme jedesmal genaue Erklärungen gegeben, die 


einem den Sinn des jeweiligen Programmteils erklären sollen. 


Hinweis zum Aufbau der Programmerklärungen 


Wir haben jedes Programm natürlich als komplettes Listing 
abgedruckt und uns bemuht alle Sonderzeichen durch dıe 
entsprechenden CHR$ zu ersetzen. Da Sie aber nicht nur einfach 
das Programm eintippen sollen, sondern auch etwas lernen wollen, 


so finden Sie vor jedem Programm 2 zusätzliche Teile. 


Im ersten Teil erfahren Sie, wie Sie dieses Programm anwenden 
können. Dieser Teil ist zunächst einmal für alle die gedacht, die 
diese Programmsammlung direkt fur eigene Zwecke gebrauchen 
möchten. Doch dieser Teil hat auch noch eine andere Bedeutung. So 
zeigt er allen Programmieren wie man ein Handbuch zu einem 
Programm schreiben kann. Und wıe wichtig gerade das Handbuch fur 
ein gutes Programm sein kann, haben wir ja schon in den ersten 
Kapiteln gelernt. Sie mussen sich natürlich nicht an die Art und 
Weise halten, wie wir diese Erklärungen geschrieben haben, sie 


sollen Ihnen nur als Hinweis dienen, wie man es machen kann. 


Der zweite Teil schießlich befaßt sich mit dem Aufbau des 
Programms im einzelnen. Hier werden alle besonderen 
Programmierverfahren genau erklärt. Natürlich können wir nicht 
Jedes PRINT und jedes INPUT genau erläutern, doch werden Sie über 


den Sınn eines jeden Programmteils genau aufgeklärt. 


Und nun viel Spaß beim Eintippen der Programme, deren Lektüre und 


dem Lernen aus dıesen Programmen. 


4.2 Eine parameterisierte Lagerverwaltung 


Teil 1: 


Eines der vielen Probleme, die an Hand der EDV heutzutage viel 
leıchter gelöst werden konnen als früher, ist das Problem der 
Lagerhaltung. Man möchte zu jedem Zeitpunkt erfahren können, 
wieviele Stucke man von einem Artikel noch auf Lager hat. Es muß 
hierbei berücksichtigt werden, daß durch den Verkauf jedesmal aus 
dem Lager abgebucht bzw. durch eine Lieferung die entsprechenden 
Artikel wieder in die Datei eingebucht werden sollen. Beide 


Aufgaben lassen sich mit diesem Frogramm erledigen. 


Eine der Besonderheiten dieses Programms ist, wie der Name des 
Programms schon verkündet, die Verwendung einer sogenannten 
Farameterdatei. Mit dieser Datei lassen sich verschieden 
Parameter variabel in das Programm einbinden. Um das etwas zu 


verdeutlichen: 


Stellen Sie sich vor, Sie haben verschiedene Mehrwertsteuer- 
Sätze. üblicherweise beträgt der Mehrwertsteuersatz 77 bzw. 147. 
Wenn Sie nun in Ihren Frogrammen mit diesen festen Werten 
arbeiten, SO wird es schwer sein, dieses Wert bei einer Anderung 
in Ihrem ganzen Programm zu modifizieren. Wenn Sie sich nun noch 
vorstellen, daß Sie auch Programme verkaufen wollen, so läßt sich 
die Idee von festen Mehrwertsteuersatzen im Programm überhaupt 
nicht mehr realisieren, da verschiedene Unternehmen mit 


verschiedenen Mehrwertsteuersatzen arbeiten. 


Noch weitaus aufwendiger wird es bei Firmenanschriften oder 
anderen Texten die von Unternehmen zu Unternehmen 
unterschiedliche Form haben. Sie können diese sogenannten Brief- 
oder Rechnungskopfe zwar fest in das Programm einbauen - aber so 


arbeitet kein Frofı - und das wollen wir ja werden. 


Softwarehäuser benutzen bei Ihrer Programmierung sehr viele 


Parameterdateien in den unterschiedlichsten Formen. Es gibt zum 
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Ist dieser Vorgang beendet, meldet sich der Computer wieder mit 


seinem Hauptmenü. 


3X 3€ 3€ 3€ 3€ JE JE 3E 3E 3€ 3€ 3€ JE 3€ 3E 3€ 3€ 3€ JE C 3E 3€ E 3E ΕΚ dE 3E 3E 3E € 3€ 3E 9E 3€ 3€ 3E 3E 3€ 


* 
* Parameterisierte Lagerverwaltung * 
* * 


3€ 3€ 3€ 3€ 3€ 3€ 3€ JC 3E 3€ 3E 3€ 3€ 3€ 3€ JC 3E 3€ 3E 3E JE 3E 3E 3€ 3€ 3€ 3€ JE 3€ 3E E 3€ 3€ 3€ 3€ 9E 9E 3€ EH 


HAUFTMENUE 


1) Eingeben der Artikeldatei 


2) Aendern der Artikeldateı 


5) Eingeben der Kassenzettel 


4) Lagerzugang 


5) Drucken der Artikelliste 


6) Ende des Programms 


—- Bitte waehlen Sie (1-6) : 


Sie können nun durch einfaches Eintippen der entsprechenden 
Taste, aus diesen verschiedenen Menüpunkten (Menü bedeutet also 
tatsachlich soviel wie "Speiseplan") den Punkt auswählen, den Sie 


nun ausfuhren mochten. 


-Zunachst haben Sie die Möglichkeit Ihre Artikel in die Datei 
einzutragen. Dieses geschieht mit dem Menüpunkt 1 - "Eingeben der 
Artikeldatei". Wollen Sie also zum Beispiel ein Buch mit dem 
Titel "Wie werde ich Millionär" in Ihr Lager einbuchen, so wählen 


Sie zu Anfang den Punkt 1 aus dem Hauptmenu aus. Es erscheint 
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dann ein neuer Bildschirm, auf dem Sie einfach die entsprechende 
Artıkelnummer eintragen können, danach die Bezeichnung und 
schließlich noch die Mehrwertsteuergruppe. Folgendes ist bei den 
Eingaben zu beachten: Die Eingabe der Artikelnummer darf maximal 
den Wert der unter "Anzahl der Artikel" bei der 
Parameterdefinition angegebenen Zahl erhalten. Als Minimum ist 


die Zahl "1" festgelegt. 


Die Bezeichnung kann mit Ausnahme von "," und ":" aus allen 


Zeichen bestehen, darf aber höchstens 28 Zeichen lang sein. 


Bei der Mehrwertsteuergruppe können Sıe alle Zahlen zwischen 1 
und 9 angeben, doch werden nur die Mehrwertsteuergruppen 1 und 2 
mit den Prozentsätzen versehen, die Sıe bei der 
Parameterdefinıtion angegeben haben. Alle anderen Sätze werden 


mit 07 behandelt. 


Hier nun wieder ein Beispiel: 


dC 3C 3C 3€ 3€ 3€ 3E 3€ E 3E E 1€ 3E E HE 9€ 3E 3€ 3€ E 3E 3€ dE JE 3E 3€ 3E 3€ 3E 9€ 3E 3E E 3€ JE 3E 3E 3E E E 


* * 
* Parameterisierte Lager ver waltung * 
* * 


3t 3C JC dE 3E 3E JC 3E 3E 3E 3€ 3€ JE 3€ 3€ HC JE JE 3€ JC JE 3E 3€ 3E 3E 3€ 9E 3E 3E € JE JE JE HE 9€ 9E 3E 3E 3E E 


Aendern der Artikeldatei 


1) Artikelnummer :? 125 «RETURN»? 


2) Bezeichnung :? Videocassette «RETURN? 


3) MWSt. Satz :? 2 <RETURN> 


So können Sie alle Ihre Artikel ın die Lagerdatei eintragen. Wenn 


Sie keine weiteren Artikel mehr eintragen wollen, tippen Sie 
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aufleuchtet. Sollten Sie eine ganz neue Diskette verwenden, so 
wird das rote Lämpchen nun blinken. 

Als nächstes stellt Ihnen der Computer die Frage "Neue 
Datendiskette anlegen (J/N) ?". An dieser Stelle müssen Sie dem 
Computer nun mitteilen, ob Sie eine neue Diskette verwenden 
wollen (oder eine Diskette die noch keine Parameterdatei enthält) 
oder eine Diskette die schon verschiedene Daten und die 
Parameterdatei enthält. Antworten Sie mit "J" oder "j" so wird 
die Diskette, die sich zu diesem Zeitpunkt in dem Laufwerk 


befindet, auf jeden fall neu formatiert. 

Nach ein paar Sekunden meldet sich der Computer wieder und 
fordert Sie auf verschiedene Werte einzugeben. Wenn Sie eine 
Eingabe getätigt haben, drücken Sie einfach die RETURN-Taste und 
der Computer fährt fort. 


Hier ein Beispiel wir Ihre Eingaben aussehen könnten: 


4 κ ΚΚ 3€ 3€ 3€ 3€ 3€ 3€ 3€ 3€ E 3E 3€ 3€ 3€ 3C 9€ 3€ JE 3€ 9€ JE 3€ 3€ 3€ ΚΕ E dC 3€ E 3E 3E 9E 3€ 3€ 3E 3€ 


* * 
* Parameterisierte Lagerverwaltung * 
* * 


3* 3€ 3€ C JC 3E IE dE 3€ 3E 3€ 3E C 3€ 3€ 3E E dic 3€ HH JE 3€ JE 3€ E 3€ 3E 3€ 3€ 3€ 3E 3E 3E 1E ΚΕ IC 3E 


MWSt. Satz 1 : ?7 <RETURN> 

MWSt. Satz 2 : ?14 «RETURN? 

Anzahl der Artikel (max. 5000) : 3993200 «RETURN» 
Nach der letzten Eingabe kann es ein paar Minute dauern, bis sich 
der Computer wieder meldet. In dieser Zeit wird das Laufwerk 
dauernd laufen. Dies ist aber normal, da der Computer nun Ihre 


Diskette formatiert und anschließend die Parameter- und die 


relative Datei generiert. 
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Beispiel Dateien, dıe nur dıe verschiedenen Parameter enthalten, 
oder Dateien, bei den der erste Datensatz die Parameter enthält, 
die anderen Sätze dagegen die normalen Eintragungen, es gibt 
sequentielle oder indexsequentielle Parameterdateien, Dateien die 
bei Start des Programmes einmal eingelesen werden oder solche, 


die kontinuierlich auf die Farameter zugreifen und vıele mehr. 


Wır wollen uns an dieser Stelle mit der einfachsten und 


gebrauchlichsten Form beschäftigen. 


Unsere Parameterdatei ist sequentiell gespeichert und wird zu 
Beginn des Programmes einmal eingelesen. Während der Arbeit wird 


dann nur noch mit den eingelesenen Variablen gearbeitet. 


Um solch eine Farameterdatei zu erstellen, ist es bei unserem 
Programm notwendig eine neue Datendiskette zu erstellen. Wenn Sie 
das Frogramm mit RUN starten, werden Sie als erstes gefragt, ob 
das Floppylaufwerk auch wirklich eingeschaltet ist und ob dıe 
Geräteadresse des Laufwerks auch tatsächlich B ist. Sollte dıeses 
nicht der Fall sein, so müssen Sie erst die erforderlichen 
Bedingungen erfüllen, also Floppy einschalten und/oder die 
Geräteadresse auf 8 stellen, bevor Sie mit dem Programm arbeiten 


können. 


Antworten Sie auf die Frage mit "J" oder "j" so wird der Computer 
Sie dazu auffordern eine Datendiskette in das Laufwerk zu legen. 
Diese Datendiskette kann entwerder ganz neu sein oder auch schon 
verschiedene Daten enthalten. Sollte diese Diskette schon 
formatiert sein, aber die Farameterdatei noch nicht enthalten, so 
mussen Sıe auch diese Diskette im nächsten Arbeitsgang 
formatieren. Aber denken Sie immer daran: WENN SIE EINE DISKETTE 
FORMATIEREN, GEHEN ALLE INFORMATIONEN, DIE SICH VORHER AUF DIESER 
DISKETTE BEFUNDEN HABEN, VERLOREN !!! 


Nachdem Sie die Datendiskette eingelegt haben, drücken Sie auf 
die Meldung "Datendiskette einlegen" einfach eine beliebige 


Taste. Sıe werden nun sehen, daß die rote Lampe an der Floppy 
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einfach "ENDE" und drücken die RETURN-Taste. Der Computer wird 
nun die Datei wieder schließen und Sie kehren ins Hauptmenü 


zurück. 


Der zweite Punkt "Aendern der Artikeldatei" ähnelt sehr dem 
ersten. Sie haben hier die Möglichkeit bestehende Eintragungen 
der Artikeldatei zu andern oder zu löschen. Dazu geben 516 
einfach die Artikelnummer des betreffendes Artikels an und der 
Computer wird diesen, sofern er schon erfasst wurde, auf dem 
Bildschirm darstellen. Sie können nun dıe Bezeichnung bzw. die 
Mehrwertsteuergruppe des Artikels durch einfaches überschreiben 
bzw. Löschen der bısherigenen Eintragungen andern und wieder 
wegspeichern. Wollen Sie ein bestimmtes Feld nicht andern, so 
drücken Sie einfach die RETURN-Taste und der Computer wird die 


bisherige Eıntragung übernehmnen. 


Eine Besonderheit besteht in dem Sonderzeichen mit dem lustigen 
Namen "Klammeraffe". Dieses Zeichen finden Sie zwischen dem "P" 
und dem "*" auf der Tastatur des Commodore 64. Wenn Sie dieses 
Zeichen an die erste Stelle der Bezeichnung schreiben, so teilen 
Sie dem Computer dadurch mit, daß dieser Artikel gelöscht werden 
soll. Tatsachlich bleibt er aber in der Datei erhalten und kann 
durch erneutes Ändern des Klammeraffen in ein anderes Zeichen 


wieder "zum Leben erweckt werden". 


Auch hier besteht wieder die Möglichkeit durch Eintragung von 


"ENDE" als Artikelnummer wieder ins Hauptmenü zurückzukehren. 


Der dritte Punkt gibt Ihnen die Möglichkeit Kassenzettel 
einzugeben und somit dem Computer mitteilen, daß diese Artikel 
aus dem Lager abgebucht werden sollen. Gleichzeitig werden dıese 
Eintragungen auf einem Drucker protokolliert. Wichtig ist es in 
diesem Zusammenhang darauf hinzuweisen, daß dieses Programm für 
einen Commodore 1525 oder Seikosha GP 188 VC Drucker geschrieben 
wurde. Falls Sie einen anderen Drucker besitzen, mussen Sie 
verschiedene Zeilen abändern. Aber hierauf kommen wir später noch 


zu sprechen. 


el 
N 
D 


Um einen Artikel aus dem Lager abzubuchen, geben Die ganz einfach 
die entsprechende Artikelnummer ein und der Artikel wird auf dem 
Bildschirm dargestellt. Danach geben Sie die verkaufte Menge des 
Artikels ein. Als nächstes folgt der Einzel-Einkaufspreis und 
dann der Einzel-Verkaufspreis des entsprechenden Artikels. Der 
Computer berechnet sich nun automatisch die jeweiligen 
Gesamtpreise und druckt die Ergebnisse aus. Gleichzeitig bucht er 
die angegebene Anzahl aus dem Lager ab. So haben Sie immer eine 


genaue Kontrolle über die vorhandenen Artikel. 


Da aber nicht nur Artikel abgebucht werden müssen, sondern auch 
eine überwachung der Lieferungen stattfinden soll, gibt es im 
Hauptmenu noch einen weiteren Punkt. Sie fınden diesen unter 


Punkt 4 - Lagerzugang. 


Auch hier geben Sie einfach den Artikel an, bei dem Sie einen 
Lagerzugang verbuchen wollen. Auf dem Bildschirm erscheint dann 
die entsprechende Artikelbezeichnung, der bisherige Lagerbestand 
und die Frage nach dem Lagerzugang. Um dieses zu verdeutlichen 


hier ein Beispiel: 


3 3C 3E 3C 3€ 3E 3E 3E 3E ΚΚ JE 3€ 3€ 3€ 3E 3€ 3E 3E 3E 3E 3€ 3€ 3C 3€ 9€ 3€ 3E 3€ € 3€ 3€ E 3€ 3€ 3€ 3€ 3E 3€ 9€ 


* * 
* Parameterisierte Lagerverwaltung * 
* * 


3t 3C 3E 3€ 3€ 3E 3E 3E 3€ HE 3E E JE 3€ HC 3E 3€ 3E 3E 3€ E 3E 3€ 3€ 3€ 3€ E 3€ HE 3E E 3E 3C TR E 9E 3E 3E XE 


Lagerzugang 


1) Artikelnummer :125 


2) Bezeichnung :Videocassetten 


3) Lagerbestand : 100 


-> Lagerzugang :?128 
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Durch diese Eintragung haben Sie nun einen neuen Lagerbestand von 
220. Sie können nach dieser Eingabe entweder weitere Kassenzettel 
eingeben oder aber durch Eingabe von "ENDE" bei Artikelnummer 


wieder ins Hauptmenü zurückkehren. 

Der nächste Punkt im Menu dient zur Ausgabe der gesamten 
Artikelliste auf einem Drucker. Sie haben so einen geneuen 
überblick über Ihren momentanen Lagerbestand, die vergebenen 
Artikelnummern und den aktuellen Preisen. Alle diese 


Informationen finden Sie "schwarz auf weiß" auf Ihrem Drucker. 


Hier ein Beispiel wie eine solche Artikelliste aussehen könnte: 


DATUM : 3530.11.85 


GESCHAFT : TESTLADEN, DORFSTR. 1 


Artikelnummer Artikelbezeichnung Bestand EK Vk 

100 Leercassetten ΞΘ 5.5 7.795 
105 Leertonbänder 25 12.5 19.75 
125 Videocassetten 225 15 23,3 


Der Letzte Punkt aus dem Hauptmenü gibt Ihnen die Möglichkeit das 
Programm abzuschließen und ins BASIC zurückzukehren. Die 
Datendiskette kann nun wieder aus dem Laufwerk entfernt werden 


und das Gerät kann abgeschaltet werden. 
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Die ersten Zeilen dienen zur Wahl der  Rahmen-, Hintergrund- und 


Schriftfarbe. So geben 


POKE 53280,14: REM RAHMENFARBE 
POKE 53281,14: REM HINTERGRUND 
PRINT CHR$ (31): REM SCHRIFT 


dem Bildschirm eine hellblaue Farbe und eine dunkelblaue Schrift. 
Durch eine identische Wahl von Rahmen- und Hintergrundfarbe 
vermeiden Sie außerdem noch die "sichtbare" Darstellung eines 
Bildschirmrahmens. 

..- 

Nach diesem Teil wird wird als nächstes die Datendiskette 
gelesen. Zunachst wird durch OPEN 15,8,15,"IO" die Diskette 
initialisiert. Wenn gewünscht kann eine neue Diskette durch OPEN 
15,8,15,"N:DATENDISKETTE,64" formatiert werden. Falls dies der 
Fall ist, wird auch gleich die relative Datei mit OPEN 
1,8,3,"B:ARTDAT,L,"+CHRF(48) zur Bearbeitung vorbereitet. Hierbei 
bedeutet das "L" und der CHR$ hinter dem Programmnamen die Lange 
der zu Verarbeitenden Datei. In unserem Beispiel ıst die Länge 
mit 48 Zeichen angegeben. Diese Länge setzt sich aus folgenden 


Feldern zusammen: 


1. Artikelnummer = 4 Zeichen + <RETURN> 
2. Bezeichnung = 20 Zeichen + <RETURN> 
3. Lagerbestand = 4 Zeichen + <RETURN> 
4. MWSt. Satz = 1 Zeichen + <RETURN> 
9. Einzelpreis EK= 7 Zeichen + <RETURN> 
6. Eınzelpreis ΝΚΞ 7 Zeichen 


Um die Werte später beim Einlesen und auch beim Schreiben in 
veschiedene Varıablen speichern zu können, haben wir durch 


Jeweils ein RETURN am Ende des Feldes dieses Feld von den anderen 
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getrennt. Das letze RETURN (hinter VK) setzt der Computer 


automatisch und darf nicht mitgerechnet werden. 


Als nächstes wird die Farameterdatei erstellt. Dazu werden die 
jeweiligen Eingaben zunächst über ein normales INPUT eingelesen 
und dann in eine sequentielle Datei geschrieben. In dieser Datei 
stehen dann der Mehrwertsteuersatz 1, Satz 2 und die maximale 
Anzahl der Artikel. Dieser letzte Wert wird auch dazu benötigt, 


um die relative Datei zu erstellen. 


OFEN 2.8.1. "6: PARAMETER" 
PRINT#2,MS$ (1) 
PRINT#2,MS$ (2) 
PRINT#2,AN$ 

CLOSE 2 


Dieses ist die Sequenz mit der die Parameterdatei auf Diskette 
geschrieben wird. Nun wird von der Anzahl der Artikel die Länge 
der relativen Datei berechnet. Dazu wird diese Anzahl in Low- und 


Highbyte zerlegt: 


HB=INT (AR/256): LB-AR-HB*256 


Eine Anzahl von 999 wurde also zum Beispiel zu LB-251 und HB=3 
führen. Mit diesen errechneten Werten können wir nun die relative 


Datei generieren. Dazu dienen folgende Befehle: 


PRINT#15,"F"+CHR$ C3) +CHR$ (LB) +CHR$ (ΗΒ) +CHR$ (1) 
PRINT#1,CHR$ (255); 


Die erste Anweisung schickt einen Befehl zum Kommandokanal, der 
dem System mitteilt, daß auf der Sekundäradresse 3 eine relative 
Datei bearbeitet wird, die (in unserem Beispiel) 999 Datensätze 
hat und daß die Verarbeitung vom ersten Zeichen innerhalb eines 
Datensatzes erfolgen soll. Durch die zweite Anweisung erstellt 
man die Datei wobei der letzte Datensatz als frei und generiert 


(=CHR# (255)) gekennzeichnet wird. 


Danach beginnt die eigentliche Arbeit mit dem Frogramm. 


Interessant ist hierbei wohl noch die besondere Art der Anderung 
eines Datensatzes. Dieser Datensatz wird einfach auf dem 
Bildschirm mit FRINT ausgegeben, durch einen CHR$(145) wird der 
Cursor über die entsprechende Eintragung gesetzt und mit einem 
INPUT läßt sich auf bequeme Art und Weise der  Bildschirm-Editor 


ausnutzen. 


TIP 


Wenn Sıe in Ihrem Programm auf einfache Art und Weise, sprich von 
BASIC aus den Cursor an eine bestimmte Stelle positionieren 


wollen, so sollten Sie folgende Variablen definieren: 


HO$-CHR$ (19): CU$=CHR$ (17): CR$=CHR$ (29) 
FOR I-1 TO 7 
CUS=CUS+CUS: CR$-CR$-*CR$s 
NEXT I 
CUS=LEFT# (CUS,25): CRS=LEFTS (CRF, 40) 


Um nun zu einem bestimmten Punkt auf dem Bildschirm zu gelangen, 


genügt ein 


PRINT HO$;LEFT$ (CUS, VT) sLEFT$(CR#,HT); 


wobei VT den Wert der Zeile enthält und HT den Wert der Spalte. 


Wenn Sie nun Daten speichern wollen, so mussen Sie wie gesagt 
daran denken, daß nach jedem Wort ein RETURN folgen muß, damit 


die Wörter auch richtig getrennt sind. Dazu dient folgende Zeile: 


TE$=TE$ (1) +CR$+TE$ (2) +CR$+TE$ (3) +CRE+TES (A) +CRS+TES (5) +CRS+TES CÓ) 
PRINT#8,TE$ 
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Wir haben uns die Arbeit etwas erleichtert, da wir am Anfang des 


Programms CR$ direkt als CHR$(13) (=RETURN) definiert haben. 


Um später wieder die Daten einlesen zu können, brauchen Sie nur 


die einzelnen Felder in der selben Reihenfolge wieder zu laden: 


INPUT#8, TE$ (1) ,TE$(2) , TES(3) , TES (4) , TES (5) , TES (6) 


Die einzelnen Variablen enthalten dabei folgende Felder: 


TES (1) =Artikelnummer 
TES (2) =Bezeichnung 
TES (3) =Lagerbestand 
TES (4) =MWSt. Satz 
TE$(S)-Finzelpreis EK 
TES (6) =Einzelpreis VK 


Die Längen der einzelnen Felder erfahren Sie aus der Angabe der 
DATA Zeilen am Schluß des Programms. Wenn Ihnen verschiedene 
Felder zu kurz erscheinen, so können Sie diese leicht ändern. 
Denken Sie aber daran, dann auch die Längenangabe bei der 
Erstellung der relativen Datei (oben besprochen - Beispiel 
CHR$(48)) entsprechend zu ändern. 

An dieser Stelle sollte auch noch auf die Verwendung des 
Fehlerkanals (vor den DATA-Zeilen) hingewiesen werden. Sicher ist 
Ihnen dessen Verwendung schon bekannt, aber trotzdem lohnt es 
sich den Aufbau einmal anzusehen. Die Fehler Ø und 909 (0-Ok, 
SÜ-RECORD NOT PRESENT) können in unserem Programm  übergangen 
werden, da die Abfrage auf die verschiedenen Datensatze 


automatisch durch das Programm gesteuert wird: 


IF RN<1 OR RN>AN THEN ..... 


RN ist in diesem Fall der zu lesende/schreibende Datensatz und AN 
die maximale Anzahl der Datensätze. Durch diesen Befehl wer den 
also alle Datensätze abgefangen, deren Nummer kleiner als 1 oder 


größer als die maximale Anzahl der möglichen Artikel ist. 


ready. 
10000 rem parametrisierte lagerverwaltung 
10100 a=fre(@): clr 
10200 dim te#(9) ,td#(B) ,tis(3) ,di#(7) ,d2¢(5) „ms C3) ,mw C3) 
10300 ms(3)=1 
10400 cr$=chr# (1353) 
10500 for i-1 to 8 
10600 read tdf£(i)0,tdíi) 
10700 next 
10800 for 1-51 to 3 
10900 read ti$(i),ti(i) 
11000 next 
11100 for i=1 to 7 
11200 read dif(i) 
11300 next 
11400 for i-1 to 5 
11500 read d2¢(1i) 
11600 next 
11700 poke 53272,2353: rem gross/klein 
11800 poke 53280,14: rem rahmenfarbe 
11900 poke 53281,14: rem hintergrund 
12000 print chr$(51);: rem schrift 
12100 gosub 41380 
12200 print "Diskettengeraet angeschlossen (J/N) ? '; 
12500 get 614: if ei$="" then 12300 
12400 if ei$-"J" or ei$-"j" then 12600 
12500 goto 12300 
12600 print ei$: print 
12700 print "Datendiskette einlegen" 
12800 get εἰς: if ei$="" then 12800 
12900 print: print 
15000 open 15,8,15,"iQg" 
13100 close 15 
13200 print "Neue Datendiskette anlegen (J/N?) ? '; 
15300 get eif$: if ei$="" then 13398 
15400 if ei$="N" or ei$-"n" then print "N": goto 14500 
13500 if ei$-"J" or ei$-"j" then print "J": goto 13700 
1:600 goto 13300 
13700 open 15,8,15,"n:datendiskette,64" 
135800 gosub 42100: gosub 41300 
15900 open 1,8,3,"Q:artdat,1,"«chr$(48) 
14000 print#i5,"p"+chr$(3)+chr$(1b)+chr$ (hb) +chr$(1) 


14100 print#1,chr$ (255); 

14200 rm=int (167132/48) 

14300 close 1 

14400 close 15 

14500 open 2,8,0,"@8:parameter " 

14600 input#2,ms# (1): ms(1)=val (ms$(1)) 
14700 input#2,ms# (2): ms(2)=val (ms$ (2)) 
14800 input#2,an$: an=val(an$) 

14900 close 2 

15000 gosub 41300 

15188 print tab(15)2;"HAUPTMENUE": print: print 


19200 print " 1) Eingeben der Artikeldatei": print 
19300 print " 2) Aendern der Artikeldatei": print 

19400 print " 3) Eingeben der Kassenzettel": print 
15900 print " 4) Lagerzugang": print 

15600 print " 9) Drucken der Artikelliste": print 

15700 print " 6) Ende des Programms": print: print 
15888 print "-> Bitte waehlen Sie (1-6) : '; 

15900 get eit: if ei$-"" then 15988 


16000 wahl=val (ei) 

16188 if wahl<1 or wabl zé then 15908 

16200 print ei$ 

16:300 for i-1 to 1000: next 

16400 on wahl goto 16600, 19800, 224600 , 22800 , 564600 , 40800 
16500 end 

16600 open 15,8,15 

16700 open 8,8,8,"U:artdat" 

16800 gosub 44900 

16900 gosub 41300 

17000 print tab(7);, "Eingeben der Artikeldatei": print: print 
17100 for i-1 to 3 

17200 te#(i)d="" 

17300 print tif(i); 

17400 input tef(i) 

17500 print 

17600 if te#(1)="ENDE" or val (te$(1))<1 then 18700 
17700 if len(te#(i))>tidi) then 17200 

17800 next 

17900 for 1-54 to 6 

18808 tet(i)="" 

18100 next 

18200 rn=val (te#(1)) 

1830@ if rn<1 or rn>an then 165700 


18400 gosub 44000 
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18500 
18600 
18700 
18800 
186500 
19000 
19100 
19200 
19-300 
19400 
195009 
19600 
19700 
19800 
19900 
20000 
20100 
20200 
20500 
20400 
20500 
20600 
20700 
20800 
20900 
21000 
21100 
212080 
21308 
21400 
21500 
21600 
21700 
21800 
21900 
22000 
22100 
22200 
22300 
22400 
229500 
226000 
22708 
228008 


gosub 44600 

goto 16900 

close 8 

close 15 

goto 15000 

open 15,8,15 

open 8,8,8,"Q0:artdat" 

gosub 44900 

gosub 41500 

print tab(8);"Aendern der Artikeldatei": print: print 
te#¥(1)="" 

print tit (1); 

input te#(1) 

print 

if te#(1)="ENDE" or val (te#(1))<1 then 22300 
if len(te#(1))2ti(1) then 195080 
rn=val (te#(1)) 

if rn<1 or rnzan then 19388 
gosub 44000 

gosub 44420 

if val (te#(1))<2rn then 19200 
gosub 41300 

print tab(8);"Aendern der Artikeldatei": print: print 
print ti$(1);" SER 

print te#(1) 

prınt 

for i=2 to 3 

print ti£$í(1)0;"'? "3 

print tef(i) 

print chr#(145); 

print ti£í(1); 

input tefí1) 

prınt 

if len(te#*(i))>ti(ıi) then 21400 
next 

gosub 44000 

gosub 44600 

goto 19:00 

close 8 

close 15 

goto 15000 

open 15,8,15 

open 8,8,8,"@:artdat" 

open 4,4,7 


N 
i 
N 


gosub 44900 

gosub 41.88 

gosub 45700 

print#4, "DATUM : "3dat 
print#4 

print#4,"GESCHAEFT : "ıgef 
print#4 

for 1=1 to 79 

print#4,"-"; 

next 

print#4 
Print#4,chr#(16) 3 "O@t_"sdit (i); 
print#4,chr#(16);"10",d1#(2); 
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prints&4,chr$(16)0;"355":d1$ ὔ)ς 
print#4,chr#¢(16)3"40"3d1¥(4) 5 
print#4,chr#¢(16)3"SQ@"sd1#(5) 5 
print#4,chr#(158),"6B";dl1# (5); 
print&4,chr$£(165);"70":sd1£$(7) 

for i-1 to 79 

print#4,"-"; 

next 

print#4 

gosub 41300 

print tab(7);"Eingeben der Kassenzettel": print: print 
te#(1)="" 

print td£(1); 

input te#(1) 

print 

if tef(1)="ENDE" or val (te#(1))<1 then 31100 

if len(te#(1))>5td(1) then 25200 

rn=val (tef(1)) 

if rni1 or rn>an then 25100 

gosub 449000 

gosub 44400 

if val (te$(1))<>rn then 25188 

gosub 41300 

print tab(7); "Eingeben der kassenzettel": print: print 
print td£$(1)5;" Se 
print te#(1) 

print 

print td#(2)5" "3; 
print te£$(2) 

print 

print td$(4):; 


ΓΩ 
CA 
CD 


27300 input tet(7) 

27400 print 

27588 if len(te£(7))>td(4) then 27200 

27600 print td$(5);"? "5 

27700 print tet(5) 

27800 print chr$(145); 

27988 print tdf£(5); 

28000 input tef$(5) 

28100 print 

28200 if len(te#(5))>td(S) then 27500 

28500 print td$(7);"? '; 

28400 print tef$(6) 

28500 print chr$(145); 

28600 print td#(7); 

28700 input tef$(6) 

28800 print 

28900 if lentte$(&6))>td(7) then 28600 

29000 te$(4)-str$(val(te$(4))-val (te$(7))) 

29100 if val (te#(4))<-999 then te£(4)-2"-999" 

29200 te#(8)=str#(val (te$(5))*val(te$(7)0)) 

29:00 te$(9)-str$(val(tef$(6))*val(te$(7))) 

29400 ee-eetval(te$(5)): eef$-str$(ee) 

29500 ge-ge-tval(te$(B)): get=strs (ge) 

296000 ev=evt+val (te#(6)): ev$-str$(ev) 

29700 gv=gvtval (te#(9)): gvf=str$(gv) 

29800 gr=val (te#(3)): we-valct(tef$(9)) 

29900 if gr“>1 and gr<>2 then gr=3 

30000 mw (gr) =mw(gr) +we*ms (gr) /100 

30100 gosub 44000 

30200 gosub 44600 

30300 printt&t4,chr$(1605;5"01";tef$(1); 

30400 print#4,chr$(16)5; "10"; tes(2);5 

38588 print#4,chré (16) 5 "35"stet(7) 5 

30600 print#4,chr# (16) 5 "40"; tet(5) 5 

30700 print#4,chr$(16) 3; "5Øø";te$(8); 

30800 printtt4,chr$(16)20;"60":tef$(65); 

30900 print#4,chr$(16)53"78"5 tet (9) 

31000 goto 25100 

351100 for i-1 to 79 

31200 print#4,"-"; 

31300 next 

31400 print#4 

31500 printt&t4,chr$(16)20;5 "81": "SUMMEN: "; 

31600 print&4,chr$(160;"40";e8$;: et-0 
239 


31788 
31800 
51500 
32000 
32100 
32200 
352300 
32400 
32580 
32600 
32708 
52800 
352900 
33000 
33180 
33200 
53300 
33408 
33500 
353600 
33708 
33808 
323900 
34000 
34100 
34200 
34300 
34400 
34500 
34680 
24700 
34800 
34988 
35000 
335100 
35200 
35300 
55400 
3559500 
35600 
35788 
25800 
35900 
56000 


printt&t4,chr$(16);"50";g€$;: ge-U 
print#4,chr#(16);"60"s;ev$3: ev=ð 
printtt4,chr$(16205;"70":gv$ : gv=@ 


print#4 

print#4,chr$(16)3"@i"s"MWSt. VK "sms(1);"% = 
print#4,chrt(16); "B1"; "MWSt. VK "sms(2)35"% 
print#4,chrt(164);"B1","MWSt. VK @ κ = "smw(3) 
close 4 

close 8 


close 15 

goto 15000 

open 15,8,15 

open 8,8,8,"B:artdat" 

gosub 44500 

gosub 41:500 

print tab(14); "Lagerzugang": print: print 
tet(1)="" 

print td$(1); 

input ΤΕΦ(1) 

print 

ifte#(1)="ENDE" or val (te$(1))<1 then 36300 
if len(te$(i))>td(1) then 332380 

rn=val (te#(1)) 

if rnil or rn>an then 33100 

gosub 44988 

gosub 44400 

if val (te#$(1))<orn then 55100 

gosub 41300 

print tab(14);"Lagerzugang": print: print 
print td$(10;" "; 

print te$(1) 

print 

print td#(2)3" "5 

print tef(2) 

print 

print td#(3)5" "; 

print tef£$(4) 

print 

print "-> Lagerzugang SS 
input tef$(7) 

if len(te$(7))>td(4) then 35500 
te$(4)-strf$(val(tef£$(4))*val(tef$(7))0) 
if val (te#(4))>9999 then tef$(4)-2"9999" 


gosub 44000 
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"imw(1) 


"smw (2) 


36188 
36288 
36300 
36400 
36508 
36600 
36700 
36808 
356900 
357000 
37100 
37200 
37300 
57400 
3579500 
37600 
37788 
37800 
37988 
380808 
38180 
38288 
38380 
38400 
38500 
38400 
38700 
38800 
58900 
39000 
39100 
59200 
39300 
39400 
39500 
39600 
39700 
59800 
39900 
40000 
40100 
40200 
40500 
40400 


gosub 44600 

goto 323100 

close 8 

close 15 

goto 15000 

open 15,8,15 

open 8,8,8,"Q:artdat" 

open 4,4,7 

gosub 44500 

gosub 41300 

gosub 43700 

print#4,"DATUM : "5;da$ 
print#4 

print#4,"GESCHAEFT =: "sget 
print#4 

for i=1 to 79 

print#4,"-"; 

next 

print#4 
print#4,chr$(16);"B1":d2$ (1); 
print&4,chr$(16235"10":d2$ (2) ; 
print#4,chr$(16);"35";d2$# (3); 
print#4,chr$(16);,"4B";d2#(4); 
print#4,chr$ (15) 3 "466"; d2¢(5) 
for i=1 to 79 

print#4,"-"; 

next 

print#4 

for rn=1 to an 

gosub 44000 

gosub 44400 

if val(te$s(1))<>rn then 39908 
if left$(te#(2) ,1)="8" then 39988 
print#4,chr$(168); "Gi"; tes (1); 
print&4,chr$(1625"10";tef$ (2) 5 
print #4 ,chr$ (16) 5 "35"5 tes (4); 
print#4,chr$ (16) 5"40"; tes (5S); 
printt&t4,chr$(16205;5 "650"; tes (4) 
next 

for i=1 to 79 

print#4,"-"; 

next 

print#4 


close 4 
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40500 close 8 

40600 close 15 

40700 goto 13000 
40800 close 4 

40900 close 8 

41000 close 15 

41100 print chr$(147) 
41200 end 

41300 print chr$(147); 


41400 print "Sb SE JE AE 2 2 2 HE HE AE HE HE 2 IE IE κκ 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 202" 


41500 print "* *"; 
41600 print "κ Parametrisierte Lagerverwaltung Si: 
41700 print "* LA 


41800 print "àd3333330 0€ (€ € CECI EEE EEE EE EEE ΧΕ 
41900 print: print 

42000 return 

42100 gosub 41300 


42200 input "MWSt. Satz 1 : "sms$(1): ms(1)=val (ms#(1)): print 
423500 if val (ms$(1))<1 or val (ms$(1))>50 then 42200 

42400 input "MWSt. Satz 2 : ";ms$(2): ms(2)-val(ms$(2)): print 
42900 if val (ms$(2))<1 or val (ms#(2))>5@ then 42400 

42688 input "Anzahl der Artikel (max. 3000) : "rant: print 


42700 if val(an$)«10 or val (an$) >300@ then 42698 
42800 ar=val (an) 

42900 hb=int (ar /256) 

435000 lb-ar-hb*256 

43100 open 2,8,1,"@:parameter" 

43200 print#2,ms$(1) 

433500 print#2,ms#(2) 

43400 print#2,an$ 

43900 close 2 

45600 return 

43700 input "Heutiges Datum (TT.MM.JJ) : ";da$: print 
43800 input "Geschaeft : ";ge$: print 

43900 return 

44000 hb=int (rn/256): lb-2rn-hb*256 

44100 print&i15,"p'"*chr$ (8) +chr$(1b)+chr$ (hb) *chr $(1) 
44200 gosub 44500 

44300 return 

44400 input#8,te$(1),te$(2) ,‚te$(3) ,te£ (4) ,te£ (5) ,te$(6) 
449500 return 

44600 te$=te$(1)+crs+te¥ (2) +cr$+tet (3) +crs+tes (4) +crF$+tes (5) +crt+teF 
44700 print#8,tet 


44800 return 
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44900 input#15,f1$, +28, ΕΤ 4% 
49000 if val(f1$)-U0 or val(f1t)-50 then return 
45100 print "Fehler: ";f1$;" "if2$;" "sf3E5" "sta 
45200 close 8 

45:300 close 15 

45400 for i=1 to 6U00: next 

45500 goto 12100 

45600 data "1) Artikelnummer :",4 
45700 data "2) Bezeichnung :",20 
45800 data "3) Lagerbestand :",4 
45900 data "4) Menge Ug 
46000 data "5) Einzelpreis EK:",7 
46100 data 'ό) Gesamtpreis EK:",8 
46200 data "7) Einzelpreis VK:",7 
46500 data "8) Gesamtpreis VK:",8 
46400 data "1) Artikelnummer :",4 
46500 data "2) Bezeichnung :",28 
46600 data "3) MWSt. Satz Gë e 
46700 data "Nummer" 

46800 data "Bezeichnung" 

46900 data "Menge" 

47000 data "Einzel EK" 

47100 data "Gesamt EK" 

47200 data "Einzel Vk" 

47300 data "Gesamt VK" 

47400 data "Nummer" 

47588 data "Bezeichnung" 

47600 data "Menge" 

47700 data "Preis EK" 

47800 data "Preis VK" 


ready. 


VARIABLENLISTE - FPARAMETRISIERTE LAGERVERWAL TUNG 


A - Dummy Variable 

TEft ) - Feldinhalte 1 - 9 
TD$( ) - Titel Bezeichnung | 
TD ( ) - Feldlängen 1 

TI$( ) - Titel Bezeichnung 2 
TI €) - Feldlängen 2 


D1$( ) - Drucker überschrift 1 

D2#( ) - Drucker überschrift 2 

MS ( ) - Mehrwertsteuersätze 

MW € ) - Mehrwertstuererbetrage 

CRE - Hilfsvarıable (=RETURN) 

I - Variable fur Schleifenzahler 

EI$ — Variable zum Einlesen eines Zeichens 

LE - Low-Byte des Datensatzes bei relativer Dateiverwaltung 
HB - High-Byte des Datensatzes beı relativer Dateiverwaltung 
RM - Maximale Anzahl möglicher Datensätze 

AN - Maximale Anzahl tatsächlicher Datensätze 
WAHL - Gewählter Menüpunkt 

RN - Zu lesender / schreibender Datensatz 

EE - Gesamtbetrag Einzelpreis EK 

GE - Gesamtbetrag Gesamtpreis EK 

EV - Gesamtbetrag Einzelpreis VK 

GV - Gesamtbetrag Gesamtpreis VE 

GR - Gewählte Mehrwertsteuergruppe 

WE - Mehrwertsteuerbetrag 

ΕΕΞ = 6. EE 

GE$ = S GE 

EVE = 5. EV 

ον - s. GV 
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4.3 Ein universeller Reportgenerator für sequentielle Dateien 


Teil 1: 


Mit diesem Programm haben Sie die Möglichkeit Ihre sequentiellen 
Dateien auf dem Drucker auszugeben. Zusätzlich können Sie die 
relativen Dateien ausgeben, deren Datenfelder jeweils durch ein 
RETURN getrennt sind. Allerdings benötigen Sie dazu ein paar 
Informationen über den Aufbau der Datei. So müssen Sie zum 
Beispiel wissen, wieviele Felder innerhalb eines Datensatzes 


enthalten sind und wie die Titel der Felder lauten. 


Die Bedienung des Programmes ist denkbar einfach. Sie geben 
einfach den Namen der Datei an die gedruckt werden soll und 


bestimmen danach die Feldanzahl pro Datensatz. 


Der Computer fragt Sie danach nach den Titeln und Längen der 
Felder, die gedruckt werden sollen. Die Maximale Länge aller 
Felder zusammen darf 80 nicht übersteigen. Sie müssen jedoch eins 
bedenken: wenn Sie als Titel eines Feldes POSTLEITZAHL eingeben 
und die Länge des Felds ist 4 Zeichen, so wird der Computer 12 
Zeichen reservieren, da das Wort POSTLEITZAHL 12 Zeichen lang ist 


und ja ebenfalls gedrucket werden muß. 


Nach diesen Eingaben wird der Computer alle Datensätze 
nacheinander von der Floppy lesen und auf dem Drucker in selber 
Form ausgeben. Nachdem der letzte Datensatz gedruckt wurde, haben 
Sie die Möglichkeit entweder eine weietere Datei auszudrucken 


oder aber das Programm zu beenden. 
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Teil 2: 


Genau so einfach wie die Anleitung zu diesem Programm ist 
eigentlich auch das Programm selber. Interessant hierbei ist 
eigentlich tatsächlich wie einfach es ist relative Dateien 


sequentiell zu bearbeiten. 


Genau wie unserem Programm zur parametrisierten Dateiverwaltung, 


so wird auch hier zunächst eine Datei zum Lesen geöffnet: 


OPEN 8,8,8,DN$+",S,R" 


wobei ın DN$ der Name der Datei steht dıe auf dem Drucker 
ausgegeben werden soll. Danach folgt eine große Schleife, die 
alle Datensätze nacheinander in den Speicher liest, diejenigen 
Felder aussucht, die gedruckt werden sollen und dann diese Felder 
an den Druckerkanal ausgibt. Dieser Vorgang wird solange 
wiederholt bis der END OF FILE Merker erreicht ist. Danach wird 


die Datei und der Druckerkanal wieder geschlossen. 
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ready. 
10000 
10100 
10200 
10300 
10400 
1059090 
10600 
10700 
10800 
10900 
11000 
11100 
11200 
11300 
11400 
11500 
11600 
11700 
11800 
11980 
12000 
12100 
12200 
12300 
12400 
12500 
12600 
12700 
12800 
12900 
15000 
15100 
15200 
15500 
13400 
13500 
15600 
13700 
13800 
139700 


rem reportgenerator 

a=fre(@): clr 

dim tit (99) ,fet(99) , tes (99) 

poke 53272,23: rem gross/klein 

poke 5328@,14: rem rahmenfarbe 

poke 53281,14: rem hintergrund 

print chr#(31)5: rem schrift 

print chr$(147); 

print "sss Reportgenerator *33*"; 


print "-> Heutiges Datum (TT.MM.JJ) :'; 


input daf 

print chr$(147); 

print "κκ Reportgenerator ww": 
print "-> Name der Datei :"; 


input dn$: print 

if dn$="" then 16800 

open 15,8,15 

open 8,8,8,"8:"+dn$+",s,r" 

open 4,4,7 

gosub 17300 

print "-> Anzahl der Felder :'; 

input af$: print 

if val (af#)<1 or val(afft)>997 then 12000 
af=val (444) 

print "-> Anzahl Druckfelder :"; 

input adf: print 

if val (ad#)<1 or val (8444) >af then 12400 
ad=val (ad#) 

for i=1 to ad 

print "-> Titel HH'";1;" sis 

input ti#(i) 

if len(ti#(1))>20 then ti#(id=left$(tis li) ,2@) 
print "-> Feldnummer :"'; 

input fef(i) 

print 

if val (fe#(i))<1 or val(fe$(i))>af then 12988 
next 

for i=1 to 79 

print#4,"-"; 


next 
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print: 


prints 


print 


print 


VARIABLENLISTE - REPORTGENERATOR 


A — Dummy Variable 

τις ) - Feldbezeichnung 

FE$( ? — Feldnummer 

τες ) - Feldinhalt 

AF$ - Anzahl der Felder 

AF - s. AFS 

ADS - Anzahl Druckfelder 

AD - s. ADF 

I - Variable für Schleifenzähler 

EOF - Zeiger ob Ende der Datei erreicht 
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14000 print#4 

14100 print#4,"DATUM : ";da$ 
14200 print#4 

14500 print#4,"DATEINAME : "sdn$ 
14400 for i=1 to 79 

14500 print#4,"-"; 

14600 next 

14700 print#4 

14800 for i-1 to af 

14900 input#8,te$(i) 

159000 next 

15100 if st and 64 then eof-1 
15200 for i=1 to ad 

15300 print#4,chr$ (16) 3 "Bi1"stisids; 
15400 print#4,chrs (16) 3, "22"; "2 "5 
15580 print#4,chr$(16)3 "25"; left (tet (val (fe$(i))),54) 
19600 next 

15700 print#4 

15800 if eof then 16000 

15900 goto 14800 

16000 for i-1 to 79 

16100 print#4,"-"; 

16200 next 

16500 print#4 

16400 close A 

16500 close 8 

16600 close 15 

160700 goto 11100 

16800 close 4 

16900 close 8 

17000 close 15 

17188 print chr$(147) 

17200 end 

17300 input&15,f1$,f12$,f15$,f4£ 
17400 if val (#1%)=@ then return 
17500 print "Fehler: ";fi1f$;" "if2$i." "Sf3ts" "ıt4$ 
17600 close 4 

17700 close 8 

17800 close 15 

17900 for i-1 to 6000: next 
18000 goto 11180 
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4.4 Ein einfaches Textverarbeitungsprogramm 


Zu jedem Computer gehört eine Textverarbeitung. Doch leider sind 
mit wenigen Ausnahmen die erhältlichen Textverarbeitungsprogramme 
für manche Anwendungsgebiete zu aufwendig und zu teuer. wir 
können Ihnen an dieser Stelle ein kleines 
Textverarbeitungsprogramm vorstellen. Es ist zwar bei weitem 
nicht so leistungsfähig wie TEXTOMAT, dem DATA BECKER 
Textprogramm für den Commodore 64, aber es kann Ihnen bei der 
Eingabe von kleinen Texten sehr behilflich sein und Ihnen 


kleinere Schreibarbeiter abnehmen. 


Nachdem Sie das Programm durch RUN gestartet haben, meldet sich 


folgendes Hauptmenu: 


3€ 3C 3E 3E 3€ 3E JE X 3€ 3 3€ 3€ € H€ € 3€ 3€ 3E € HE JC 9E € E 3€ 3E € € 3€ 3E 9€ 3€ 3€ 3€ 3€ 3E 39€ 9€ 9€ € 


* * 
* Textverarbeitung * 
* * 


3€ 3€ 2€ 3€ CH ER EE Me € oe 9€ XC CE EE EC 3€ E€ 3E 3E 3€ 3C€ JE E E EXC 3E E 9E 3E IE EH 


HAUFTMENUE 


1) Texteingabe 


2) Textaenderung 


3) Textausgabe auf Bıldschirm 


4) Textausgabe aut Drucker 


Texte speichern 


6) Texte laden 


o9) Programmende 
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Wenn Sie nun die Taste "1" drücken so fragt der Computer 


Ab Zeilennummer :7 


Sie geben nun die Zeilennummer ein, bei der Sie anfangen wollen 
Text einzugeben. Haben Sie in die selben Zeilen schon einmal 
einen Text geschrieben, so wird dieser Text überschrieben. Alle 


anderen Zeilen werden von dieser Eingabe nicht berührt. 


Sie können in einer Zeile maximal 77 Zeichen eingeben. Danach 
fuhrt der Computer automatisch ein RETURN aus. Denken Sie also 
bei der Eıngabe eines Textes daran, früh genug daran ein RETURN 
einzugeben. Dadurch wird die Zeile beendet. Auf dem Bildschirm 
erscheint dann die nächste Zeile und Sie können weiteren Text 
eingeben. Dieser Vorgang dauert solange, bis die Zeile 99 
erreicht ist, dies ist die letzte mógliche Zeilennummer, oder wie 
Sie zu Anfang der Zeile die Funktionstaste F1 drücken. Sie kehren 


dann wieder ins Hauptmenu zurück. 


Nun konnen Sie durch Drücken der Taste "2" den bestehenden Text 


korrigieren. Der Computer fragt Sie: 


Welche Zeilennummer :7 


Sie können nun die Zeilennummer eingeben, die Sie ändern wollen. 
Der Computer zeigt Zeilennummer und Zeile an und Sie konnen die 
Zeile neu eingeben. Nachdem Sie die RETURN-Taste gedrückt haben, 
fragt der Computer erneut nach einer Zeılennummer. Drücken Sie an 
dieser Stelle einfach die RETURN-Taste so gelangen Sie wieder ins 


Hauptmenü. 


Wenn Sie mit dem Cursor nach rechts fahren, so werden Sie 
feststellen, daß sich die alte Zeile auf diese Art und Weise in 
die neue Zeile kopieren läßt. Drucken Sie die Pfeil-Taste nach 
links so werden die Zeichen die sich links vom Curso befinden 


wieder gelöscht (nur in der neuen Zeile '). 


Drücken Sıe als erstes Zeichen der Zeile einfach die RETURN- 
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Taste, so wird die alte Zeile vollständig in die neue Zeile 
übernommen. Ansonsten wird die neue Zeile bei einem RETURN 
abgeschlossen. Die neue Zeile befindet sich nun wieder an der 


richtigen Stelle im Text. 


Nun können Sie den ganzen Text auf dem Bildschirm sichtbar 
machen. Dazu wählen Sie aus dem Hauptmenü den Punkt Ausgabe auf 
Bildschirm. Nach ein paar Sekunden erscheint der ganze Text 
beginnend mit Zeılennummer 1 auf dem Bildschirm. Durch Drücken 
der Leertaste können Sie den Bildschirm anhalten und wieder 
weiterlaufen lassen. Wenn alle Zeılen dargestellt wurden, meldet 


sich der Computer wieder mit 


*ENDE* 


Der Bıldschirm bleibt aber noch sichtbar. Erst durch Drucken der 


Leertaste kehren Sıe wieder in das Hauptmenu zurück. 


Als weitere Möglichkeit können Sıe die Ausgabe auch auf dem 
Drucker erfolgen lassen. Dazu wählen Sie Punkt "4" aus dem 
Hauptmenü. Der Computer fordert Sie auf den Drucker startklar zu 
machen und nachdem Sie die RETURN-Taste gedrückt haben begınnt 
der Druck. Nach Beendigung des Druckvorgangs kehrt das Frogramm 


wieder ins Hauptmenu zuruck. 
Die Punkte 5 und 6 erklären sich eigentlich selber. Sıe können 
den ganzen Text auf Diskette abspeichern und wieder in den 


Speicher laden. 


Um das Programm zu beenden, dructen Sie die Taste "6" im 


Hauptmenü. 
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Bei einer Textverarbeitung ist es sehr wichtig zu jedem Zeitpunkt 
absoulte Kontrolle über die Tastatur zu haben. Diese Kontrolle 
kann mit der üblichen INPUT-Routine nicht gegeben werden. Das 
BASIC des Commodore 64 kennt dafür den GET-Befehl. Mit diesem 
Befehl können Sie zeichenweise einlesen und wissen so immer 
welche Taste gerade gedrückt wurde, ob diese Taste erlaubt ist 


und wie lang die Zeile im Moment gerade ist. 


Mit einer einfachen Routine läßt sich die ganze  Texteingabe 


kontrollieren: 


188 GET EI$: IF EI$="" THEN 100 
110 IF EI$>CHR$(31) AND EI$ZCHR$(128) THEN 100 


Diese Routine akzeptiert nur Zeichen die im sogenannten ASCII- 
Bereich liegt, das heißt, daß alle Sonder- und Steuerzeichen 


ignoriert werden. 


Der GET-Befehl hilft uns aber auch noch an anderer Stelle. Wenn 
wir einen Text wieder einlesen wollen, so kann es passieren, daß 
wir nicht den ganzen Text einer Zeile eingelesen bekommen. Das 
liegt daran, daß die normale INPUT-Routine nur bis zum Komma 
einliest. Da aber innerhalb eines Textes sehr wohl Kommata 
vorkommen können, so müssen wir dafür sorgen, daß auch dieses 


Zeichen korrekt mit eingelesen wird. 


Mit dieser Routine ist dies nun möglich: 


100 OPEN 1,8,8,DN$;",S,R" 

110 GET#1 ΕΙ 

128 TE$=TE$+EIS 

150 IF EI$=CHR$(13) OR LEN(TE$)=8@ THEN 150 
140 GOTO 110 

150 PRINT TES 
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ready. 
10000 rem textverarbeitung 
10100 a=fre(@): clr 
10200 dim te$(1@0) 
10300 poke 53272,23: rem gross/klein 
10400 poke 5:3280,14: rem rahmenfarbe 
10500 poke 53281,14: rem hintergrund 
19000 print chr$(31);: rem schrift 
10700 print chr$(147); 


1080€ print 'κκκκκκκκκκκκακκκκκκκκκκκκκκκκκκκκκακκκκκκκὶ; 


10900 print "x *"; 
11888 print "* Textverarbeitung wë? 
11100 print "s wë 


11200 print "sx 3 3€ t€ RHE HHH EHR HEHEHE" ; 
11300 print: print 
11400 print tabí(15);" HAUPTMENUE": print: print 


119008 print " 1) Texteingabe ueber Tastatur": print 
11600 print " 2) Textaenderung": print 

11700 print " 5) Textausgabe auf Bıldschirm": print 
11900 print " 4) Textausgabe auf Drucker": print 
11900 print " 5) Text speichern": print 

12000 print " Gi Text laden": print 

12100 print ' 7) Programm Beenden": print 

12200 print "-> Bitte waehlen Sie (1-7) : "; 

12200 get ei$: ifei$="" then 12398 


12400 wahl=val(ei$) 
12900 if wahl<1 or wahl>7 then 12300 
12600 on wahl goto 12880, 16000,1946800, 21300 , 22200, 22200, 24480 
12700 end 
12800 print chr$(147); 
12500 print "-> Ab Zeilennummer zi: 
13902 input σεξ 
131290 print 
15200 if val (ze#)<1 or val(ze$)>99 then 12900 
13300 ze=int (val(zef)) 
15400 print 
15500 print ze;": "; 
13600 az=® 
13700 get ei$ 
13888 print chr$(185) schr# (157); 
15900 if oi1$-"" then 13700 
14000 if ei $< >chr#(28) then 146000 
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«4100 if len(te¢(ze))<1 then 13700 

.4200 print " "ichr£(157); 

4290 print chr#(157);" "schr$(157)1 

4400 te£$(ze)-left£(tefí(ze)?),len(tef$(ze))-1) 
. +50 goto 13720 

«14600 if ei$<>chr$(133) then 14900 

.4700 if len(te$(ze))«1 then 15700 

«3800 goto 13700 

49808 if 8-0 then te$(ze)="": az=1 

.5888 print " ";chr$(1572;ei*; 

.9100 if ei$=chr#t(12) then ze=zeti: goto 15400 
.9200 te$(ze)=te$(ze)+teif$ 

.9500 if len(tef$(ze))-79 then tet(ze)=te$(ze)+chr$(13): ze=zetl 
.5400 if ze-100 then 15700 

.550Ø if eif-chrf£$(13) then 135U0 

.56000 goto 13700 

5700 print " "schr$(157) 

«95800 te£$(ze)-"!''" 

.5900 goto 19708 

.5000 print chr$(147); 

.5100 print "-> Welche Zeilennummer :"; 
.5200 input zet 

.5300 print 

.5400 if val (ze#)<1 or val(ze$)>99 then 16100 
«39500 ze=int (val(ze$)) 

.5500 print 

.5700 print zes": "3 

5800 print tet(ze) 

«9300 print 

7000 print ze;": "; 

.7100 nt$-"" 

7200 get eif 

.7300 print chr#(185);chr$ (157); 

.7400 if ei$="" then 17200 

758000 if ei${>chr$ (28) then 18108 

«7900 if len(nt#)<1 then 17200 

7700 print " "schr$(157); 

"800 print chr$(157); " "schr$(157); 

“988 nt$=leftt(nt#,len(ntf)-i) 

.J00 goto 17200 

"WM if e1$<>chr$(29) then 18400 

OM iflen(nt$)<=len(te$(ze)) then eit=mid#(tes(ze) ,len(nt$)+1,1):goto 18800 
-SO goto 17220 


“48 if e1%< >chr$(133) then 18800 
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18300 
18600 
18700 
18800 
18500 
19000 
19100 
19200 
19300 
19400 
19500 
19600 
19700 
19800 
19900 
20000 
20100 
20200 
20500 
20400 
20500 
20600 
20700 
208600 
20900 
21000 
21100 
21200 
21200 
21400 
215090 
21600 
21700 
21800 
21900 
22000 
22100 
22200 
22308 
22400 
22500 
22600 
227U0 
22800 


if len(nt#)<1 then 10788 
goto 17288 

if az=@ then nt#="": az=1 
print " "“schr#(157) 3e1€; 
if ei$-chr$(13) then 19388 
nt$=nt$t+ei $ 


if len(nt$)=79 then nts=ntF$+chr (13) 


goto 17280 


if len(nt#)<1 then nt$=tef(ze): print nts 


tet (ze) =ntt 
goto 102700 
print chr$(147); 


ze-1 


if left$(te£$í(ze),2)-"!''" then 20408 


print ze;': 3 
print tef(ze) 
gosub 20800 


ze=zet+l: ifze-100 then 20400 


goto 15800 
print 
print "+> ENDE ##"; 


get ei$: if eif-"" then 296909 


goto 18700 
get eı$ 


if e1%<>chr#é(22) then return 


get Εις 

if eı$<>chr#(32) then 21070 
return 

open 4,4,2 


ze-1 


if left£$(te£$£(ze),2)-2"''" then 22000 


print#4,teft(ze) 

ze=zerl 

if ze-100 then 22000 

goto 21500 

close 4 

goto 19788 

print chr$(147); 

print "-> Textname :"; 
input dn$ 

open 1,8,2,"8:"+dn$+",s,w" 


for ze-1 to 100 


if tef(ze)="" then te$í(ze)-chr$(1:3) 


print#1,tef*(ze) 
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22900 next 

25000 close 1 

25100 goto 10700 

25200 print chr$(147); 

235500 print "-> Textname :'; 
23400 input dn$ 

25500 open 1,8,8,dn$+",s,r" 
25600 for ze-1 to 100 

25700 te$-"" 

25800 get#1,ei$ 

25900 tet=tet+ei $ 

24000 if ei$=chr$(13) or ei$="" then 24200 
24100 goto 25800 

24200 tefí(ze)-te$ 

243500 next 

24400 close 1 

24500 goto 10700 

24600 print chr$(147) 

24700 end 


ready. 
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VARIABLENLISTE - TEXTVERARBEITUNG 


Dummy Variable 

Textzeilen 1 - 99 

Gewählter Menüpunkt 

Variable für Schleifenzähler 

Zeilennummer 

s. ZE$ 

Hilfsvaraible — B bis erstes Zeichen eingegeben 
Variable zum Einlesen eines Zeichens 

Geänderte Zeile 


Dateiname 
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4.5 QUISAM konkret - eine Literaturstellenverwaltung 


Nachdem wir Ihnen in Kapitel 2 alles beigebracht haben, was 
Sie für eine gute Dateiverwaltung wissen müssen und Ihnen 
eine Reihe von exzellenten Unterprogrammen an die Hand 
gegeben haben, wollen wir das Ganze nun einmal praktisch 


nutzen. 


Dazu schreiben wir ein Programm, das Sie nicht nur gut 
gebrauchen können, sondern das auch die Möglichkeit von 
QUISAM, beliebig lange Datensätze zu verwalten, voll 


ausnutzt. 


Wenn Sie eifriger Leser von Computerzeitschriften sind, 
kennen Sie sicher das Problem : Sie lesen einen Artikel zu 
einem bestimmten Thema und erinnern sich schwach "Moment 
mal, da gab es doch schon einmal etwas zu diesem Thema, wie 


war das noch" und noch viel schlimmer 


WC STAND DAS NOCH GLEICH 7??? 


Diesen Froblem werden wir nun ein fur alle mal auf den Leib 
rucken. Wir wollen eine Literaturstellenverwaltung 
schreiben, die es uns ermöglicht, Artikel anhand von 
Themenoberbegriffen zu suchen und uns angibt, wann und in 
welcher Zeitschrift ein Artikel zu diesem Thema erschienen 


ist. 


Auf den ersten Blick werden Sie vielleicht denken, daß dies 
nichts besonderes ist. Wenn Sie aber einmal genau überlegen, 
was wir tun wollen, erkennen Sie sicher sehr schnell, wo der 


Haken bei einer Literaturstellenverwaltung liegt. 


Eine normale relative Datei verlangt eine konstante 
Datensatzlänge, damit die Verwaltung der Diskette möglich 
ıst. Aber woher sollen wir die nehmen” Wir haben zwar den 


Themenoberbegriff, für den wir eine bestimmte maximale Lange 


definieren können, aber an wieviel Stellen ein Artikel zu 
diesem Thema erscheint können wir nicht wissen. Mit jeder 
neuen Zeitschrift kann diese Anzahl wachsen. Naturlich 
könnten wir eine maximale Anzahl von vielleicht 20 Einträgen 
vorsehen. 

Damit hätten wir uns aber 2 Nachteile eingehandelt. Zuerst 
einmal ist bei 20 Einträgen Schluß, was tun wir dann 222 
Der zweite Nachteil ist die enorme Platzverschwendung auf 
der Diskette, die sowieso keine übermäßig große Kapazität 
besitzt. Denn schließlich wird zu einem Thema mehr, zu einem 
anderen weniger geschrieben. Warum also für alle Themen 
gleich viel Platz vorsehen??? 

All dies ruft nach einer Dateistruktur mit dynamisch 
wachsender Datensatzlänge, eben nach QUISAM. 

Die Einrichtung der Bemerkungsdatei erlaubt es, beliebig 
viele Stellen zu einem Thema einzutragen, und es wird immer 


nur soviel Platz reserviert wie tatsächtlich benötigt wird. 


Und nun konkret. Dies soll das Programm können : 


- Datei einrichten 
- Thema eingeben 

- Stelle eingeben 
- Thema suchen 

- Thema löschen 


- Thema drucken 

Thema drucken soll dabei bedeuten, daß zu einem Thema alle 
Stellen, an denen ein Artikel dazu erschienen ist, 
ausgedruckt werden. 

Was wollen wir speichern ? 


Wir brauchen genau zwei Eingabefelder : 


- Thema 


- Stelle 
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Thema enthält dabei den Themenoberbegriff, Stelle enthält 
Name der Zeitschrift, Erscheinungsdatum in Monat und Jahr 


(z.B. 7/82) und Seitenangabe. 


Wie Sie nun vor allem die Themenoberbegriffe wählen bleibt 


Ihnen überlassen. Da sind Ihrer Fantasie keine Grenzen 


gesetzt. 


Unser Stammdatensatz besteht also nur aus einem einzigen 
Feld, dem Thema. Dieses Feld ist gleichzeitig Schlüssel und 
kompletter Datensatzinhalt. 

Alle Stellen werden in die Bemerkungsdatei eingetragen, die 
im Laufe der Zeit vom Umfang daher erheblich größer werden 
dürfte als die Stammdatei. Doch ist diese Datei nur genau so 
groß, wie Sie auch Stellen eingetragen haben. Im Gegensatz 


zu herkömmlichen Dateiverwaltungssystemen wird also nur der 


tatsächtlich benötigte Platz reserviert und Sie können 
beliebig viele Stellen zu einem Thema angeben. 

Auf den folgenden Seiten finden Sie das Listing zu dem 
Programm. Sie werden erstaunt feststellen, wie kurz es ist 
und trotzdem alle Eigenschaften besitzt, die von einem 
solchen Programm erwartet werden. Zu dem Programm gehören 
aber auch noch eine Reihe von Unterprogrammen aus dem 2. 
Kapitel, die wir hier aus Platzgründen nicht noch einmal mit 
ausgedruckt haben. Wenn Sie das Kapitel 2 nach Anleitung 
durchgearbeitet haben, so werden Sie alle die benötigten 
Routinen schon eingetippt und gespeichert haben. Diese 
können Sie dann benutzen. Wenn nicht, so müssen Sie dies nun 
nachholen. Zuerst einmal eine Liste aller benötigten 


Unterprogramme mit Zeilennummern : 


48000 formatierte Ausgabe 
49000 Dateneingabe 

90000 Defaultwerte eintragen 
51000 Maske aufbauen 

53000 Bemer kungseintrag lesen 
53200 Fol gebemer kung lesen 
54000 Datensatz lesen 
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55000 Datensatz löschen 


296000 Bemerkung eintragen 
296600 Folgesatz eintragen 
57000 Datensatz schreiben 
98000 Datei óffnen 

59000 Datei einrichten 


Auf den folgenden Seiten nun das Listing, an das Sie die 


vorstehenden Unterprogramme wie gesagt noch anhangen müssen. 
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1000 REM 

1010 REM απ  PROGRAMMSTART «κκ 

1020 REM 

1025 GOSUB 1500 : REM PROGRAMM INITIALISIEREN 

1030 RESTORE 

1040 FOR MP-1 TO 8 : REM HAUPTMENUE LESEN 

1050 :READ MZ(MP) : READ M$(MP) : READ MFX(MP) s: READ MT% (MP) 
1060 NEXT MP 

1070 FOR MP-1 TO 5 : REM KOPFZEILEN LESEN 

1080 :READ KO$ (MP) 

1090 NEXT MP 

1100 READ TH$ : READ S$ 

1200 REM HAUPTMENUE SCHREIBEN 

1210 PRINT CHR#(147) : REM BILDSCHIRM LOESCHEN 

1220 FOR MP-1 TO 8 

1250 :F4=M%A (MP) : F$=M$ (MP) : FLZ=MFZ(MP) : FFZ-MTZCMP) 
1240 :GOSUB 51000 : REM MASKE DRUCKEN 

1250 NEXT HF 

1265 REM MENUEPUNKT WAEHLEN 

1270 F7=17 = GOSUB 49000 

1280 IF F$«"1" OR F$»"A" THEN 1270 : REM UNGUELTIGE EINGABE 
1290 MF=VAL(F$) : ON MP GOSUB 35000,4000,5000,6C00,7000,8000 
1300 GOTO 1210 : WIEDER VON VORNE 

1500 REM PROGRAMM INITIALISIEREN 

1510 PRINT CHR$ (147) 

1520 F%=3 : F$-'"i ITERATURSTELLENVERZEICHNIS" : Fi%=0 : FFZ-O : GOSUB 51000 


1530 FX-&6 : F$="NAME DER DATEI : " : FLX-8 : ΕΕΧΞΟ : GNSUB 51000 
1540 GOSUB49000:QN$=F$ :PRINT: REM NAMEN DER DATEI EINGEBEN 
1560 DNS=QN$ + ".PR" : OPEN 15,8,15 


1570 GOSUB 65500 : CLOSE 15 : REM IST DATEI VORHANDEN 

1580 IF F1$-"OO" THEN GOSUB 58000 : RETURN : REM DATEI IST VORHANDEN 

1590 GOSUB 59060 : RETURN : REM DATEI EINRICHTEN 

3000 REM 

5010 REM *** THEMA EINGEBEN «κα 

3020 REM 

3030 GOSUB 40000 : REM MASKE AUFBAUEN 

3040 FZ=5 : F$-TH$ : ΕΙ Ξ25 : FFX-O : GOSUB 51000 : GOSUB 49000 : 0D$-F$ 
3045 IF F$=CHR$ (137) THEN 3080 

2050 F%=7 : F$-S$ =: GOSUB 51000 : GOSUB 49000 : QX$-F$ : REM STELLE EINGEBEN 


263 


3060 IF F$=CHR$ (137) THEN 3080 

3065 GOSUB 57000 : REM THEMA AUF DISK SCHREIBEN 

3070 GOSUB 56000 : REM STELLE SCHREIBEN 

3075 IFVAL(F1$)<>O THEN 41000 : REM FEHLER 

3080 RETURN 

4000 REM 

4010 REM ### STELLE EINGEBEN «κκ 

4020 REM 

40:50 GOSUB 40000 : REM KOPF DRUCKEN 

4040 FZ=5 : F$-TH$ : FLX-25 : FF%=0 1 GOSUB 51000 
4050 F$-QD$ : GOSUB 50000 

4060 F4A-7 : F$=5$ : FLZ=25 : GOSUB 51000 1 GOSUB 49000 : REM STELLE EINGEBEN 
4070 IF F$=CHR$ (137) THEN 4100 : REM ABBRECHEN 

4080 QX$-F$ :IFOT$-".EX"THENGOSUBS6600: GOTO4090 

4085 GOSUB 56000 

4090 IF F1$«»"OO"THEN 41000 

4100 RETURN 

5000 REM 

9010 REM απ THEMA SUCHEN ##* 

39020 REM 

9050 GOSUB 40000 : REM KOPF DRUCKEN 

2040 F%=5 : F$-TH$ : FL%=25 =: FF%=0 : GOSUB 51000 
3050 F%=7 : F$=5$ : GOSUB 51000 

9060 FX-5 : GOSUB 49000 : REM THEMA EINGEBEN 

9070 IF F$=CHR$ (137) THEN 5440 : REM ABBRUCH 

2080 QüK$-F$ : GOSUB 54000 : REM THEMA SUCHEN 

59090 IF QFZ>0 THEN 5400 : REM NICHT GEFUNDEN 

9100 F$-QD$ : GOSUB 50000 : REM IN MASKE EINTRAGEN 
29110 GOSUB 53100 : REM ERSTE STELLE LESEN 

9120 IF QFZ»O0 THEN 5400 : REM NICHT GEFUNDEN 

9150 F$-QX$ : FZ=7 : GOSUB 50000 : REM IN MASKE EINTRAGEN 
9140 F%=24 : F$="F7 - NAECHSTE STELLE / F2 - ABBRUCH" : FLX-O : ΕΕΞΖΞΟ 
9150 GOSUB 51000 

9160 GET E$ : IF E$=CHR$(137) THEN 5440 : REM ABBRUCH 
5170 IF E$<>CHR$ (136) THEN 5160 

5180 REM NAECHSTE STELLE LESEN 

9190 GOSUB 53200 

9200 IF QFZ>0 THEN 5400 : REM NICHT GEFUNDEN 

9210 GOTO 5130 


264 


2400 
3410 
5420. 
2430 
5440 
5000 
5010 
5020 
5050 
5040 
5050 
3060 
5070 
5080 
2090 
5100 
5110 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7175 
7190 
7200 
7210 


REM NICHT GEFUNDEN 


FA~A=24 : F$=" " $ FLZ=0 s: GOSUB 


σ΄ F$="DATENSATZ NICHT GEFUNDEN" : GOSUB 51000 


GET ES : ΙΕ E$-"" OR E$<>CHR$ (13) THEN 5450 
RETURN 

REM 

REM «κκ THEMA LOESCHEN Js 

REM 


GOSUB 40000 : REM KOPF DRUCKEN 

F%=5 : F$-TH$ : FLZ=25 : FFX-O : GOSUB 51000 

F$=0D$ : GOSUB 50000 : REM AKTUELLES THEMA AUF SCHIRM 

F%=7 : F$="WIRKLICH LOESCHEN (J/N)" : FL%=1 : FFA=1 : GOSUB 51000 
GOSUB 49000 : REM EINGABE 

IF F$-"N" THEN 6110 : REM ABBRUCH 

IF F$«»"J'"THEN 6070 

GOSUB 55000 


RETURN 

REM 

REM  sx** THEMA DRUCKEN #%#% 
REM 


GOSUB 40000 

F%=5 : F$-TH$ : FLAX-25 : FF%=0 : GOSUB 51000 

F$=QD$ : GOSUB 50000 : REM AKTUELLES THEMA AUF SCHIRM 

F%=7 : F$-"DRUCKER FERTIG (J/N)" : FLZ-1 : FFX-1 : GOSUB 51000 
GOSUB 49000 

IF F$="N" THEN 7300 : REM ABBRUCH 

IF F$<>"J" THEN 7070 

GOSUB 53100 : REM ERSTE STELLE LESEN 

IF ΩΕΧΣΟ THEN 7300 : ENDE DES DATENSATZES 

OPEN 1,4 


91000 


FI$-QD$ : FO$="AAAAAAAAAAAAAAAARAAAAAAAAA AAARAAAAAAAAAAAARAAAAAAAA " 


GOSUB 48000 : REM AUSGABE FORMATIEREN 
FI$-QX$ : GOSUB 48000 

PRINT41,FP$ 

FO$-" AARAARAAAAAAAAAAAAAAAAAAR" 
REM FORMAT ΕυΕΗ RESTLICHE STELLEN 

GOSUB 53200 : REM NAECHSTE STELLE LESEN 

IF QF%>0 THEN 7300 : REM ENDE DES DATENSATZES 

FI$-QX$ : GOSUB 48000 : REM FORMATIEREN 
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7220 PRINT#1,FP$ : GOTO 7190 

7300 CLOSE1 : RETURN 

B000 REM 

8010 REM PROGRAMM BEENDEN 

8020 REM 

8030 GOSUB 5830C 

8040 END 

10000 REM 

10010 REM STRINGS 

10020 REM 

10030 DATA O,"HAUPTMENUE" ,0,0 

10050 DATA 5,"1 : THEMA EINGEBEN",0,0 

10060 DATA 7,"2 : STELLE EINGEBEN" ,0,0 

10070 DATA 9,"3 : THEMA SUCHEN",O,0 

10080 DATA 11,"4 : THEMA LOESCHEN" ,0,0 

10090 DATA 13,"5 : THEMA DRUCKEN",0,0 

10095 DATA 15,"&6 : PROGRAMM BEENDEN" ,0,0 

10100 DATA 17,"BITTE WAEHLEN SIE",1,1 

10200 DATA "THEMA EINGEBEN" 

10210 DATA "STELLE EINGEBEN" 

10220 DATA "THEMA SUCHEN" 

10230 DATA "THEMA LCESCHEN" 

10240 DATA "THEMA DRUCKEN" 

10300 DATA "THEMA : " „ "STELLE : " 

40000 REM 

40010 REM κ.  KOPFDRUCK »... 

40020 REM 

40030 PRINT CHR$(147) : REM BILDSCHIRM LOESCHEN 
40040 ΕΧΞΟ : FS=KOS(MP) : FLZ-O : ΕΕΧΞΟ : GOSUB 51000 : REM KOPFZEILE DRUC*: 
40050 RETURN 


41000 REM 

41010 REM 3*** FEHLERBEHANDLUNG «κε 

41020 REM 

41050 F%=24 : F$-"FEHLER AUF DER DISKETTE" : FLZ-O : FFX-O : GCSUB 51000 
41040 GET ES : IF E$-"" OR ES$«^5CHR$(13) THEN 41040 


41050 RETURN 


Sie sehen schon anhand des Listings, daß bei Benutzung der 
Unterprogramme fast nichts mehr zu tun ist. Lediglich das 
Hauptmenue und die Eingaben sind noch aufgebaut worden. 
Ansonsten besteht das Programm fast nur aus 
Unterprogrammaufrufen. Dies ist auch bereits an der extrem 
kurzen Variablenliste zu sehen, die nur die Variablen 


enthält, dıe außerhalb der Unterprogramme benutzt werden. 


MP angewählte Nummer des Menuepunktes 

TH$ Konstante "Thema :" 

S$ Konstante "Stelle :" 

ΜΑ Zeilennummern der einzelnen Menuepunkte 
M$ Menuepunkte 

ΜΕ Länge der Eingabefelder (0) 

MT% Typ der Eingabefelder (0) 


KO$ Kopfzeile der einzelnen Eingabemasken 


Das Programn selber gliedert sich in vier große Teile : 


Zeile 1000 - 2000 : Aufbau des Hauptmenues und Auswahl 
der einzelnen Unterprogr amme 

Zeile 2000 - 8000 : die einzelnen Unterprogr amme 

Zeile 10000 - 20000 : benötigte Konstanten 

Zeile 40000 - 50000 : Unterprogramme 


Die einzelnen  Programmteile erklären sich fast von selbst. 


Trotzdem eine kurze Erläuterung : 


1000 — 1200 : Initialisierung des Programms. Eingabe des 


Dateinamens und Belegung der konstanten Stringvariablen 


1200 — 1500 : Hauptprogramm; druckt Hauptmenue aus und 


ermöglicht Auswahl der einzelnen Programmteile 
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1500 - 1590 : Eingabe des Dateinamens, wird diese Datei auf 
der Diskette nicht gefunden, so wird eine neue Datei 


eingerichtet. 


3000 - 4000 : Thema eingeben, d.h. Datensatz eingeben und 


speichern 


3030 : Kopfzeile drucken 


3040 - 3050 


Eingabemaske aufbauen und Thema und Stelle 


einlesen 


3060 Thema speichern 


3065 : Wenn keine Stelle eingeben, dann speichern 


uberspringen 


3070 : Stelle auf Diskette in Bemerkungsdatei 


schreiben 


3075 


Wenn Fehler dann Fehlermeldung ausgeben 


3080 : Zurück ins Hauptmenue 


4000 - 4100 : Stelle zu vorhandenem Thema eingeben 


4030 : Kopfzeile drucken 


4040 - 4060 


Eingabemaske drucken und Stelle einlesen 


4070 : Bei Leereingabe Abbruch 


4080 : Stelle in Bemerkungsdatei speichern wenn 


vorher bereits auf diese Datei zugegriffen wurde. 


4085 


Stelle in Bemerkungsdatei eintragen wenn 
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vorher noch 


4090 


4100 


39000 - 5430 


nicht auf diese Datei zugegriffen wurde. 


Wenn Fehler dann Fehlermeldung ausgeben 


Zurück ins Hauptmenue 


Thema auf Diskette suchen und mit allen 


Stellen anzeigen 


3030 


3040 - 5060 


29070 


3080 


3090 


Kopfzeile drucken 


Eingabemaske drucken und Suchbegriff eingeben 


Bei Leereingabe Abbruch 


Thema auf Diskette suchen 


Wenn nicht gefunden, dann entsprechende 


Meldung ausgeben 


3100 


9110 - 5130 


5140 


5170 


5180 5210 


5400 - 5430 


Hauptmenue 


6000 - 6110 


6030 - 6090 


6100 


Thema in Maske eintragen 


Erste Stelle suchen und in Maske eintragen 


Soll weitergesucht werden 72 


Nachste Stelle suchen 


Fehlermeldung drucken und zurück ins 


Thema löschen 


Sicherheitsabfrage 


Thema löschen 
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7000 - 7300 : 


7040 - 7090 : 


7100 


7120 


7130 - 7140 : 


in ΕΟΦ können 


7160 


7170 


7190 - 7220 : 


7500 : 


Hauptmenue 


10000-10100 : 


sind nach dem 


Eingabefeldes, 


10200-10240 : 


Thema drucken 


Sicherheitsabfrage 


Erste Stelle lesen 


Druckerkanal öffnen 


Formatierung der Ausgabe; die Formatanweisung 


Sie natürlich nach eigenem Belieben ändern. 


Ausgabe von Thema und erster Stelle 


Neues Format für restliche Stellen 


Naechste Stelle lesen und ausgeben 


Druckerkanal schließen und zurück ıns 


Strings fur das Hauptmenue, alle DATA-Zeilen 


Muster  Zeilennummer, 


String, Lane des 


Typ des Eingabeteldes aufgebaut. 


Kopfzeilen der einzelnen Unterprogramme 
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Kurz einiges zur Bedienung des Programms : 


Beim Start verlangt das Programm den Namen der Datei. Findet 
es eine Datei diesen Namens nicht auf der Diskette so 
richtet es eine neue Datei ein. Geben Sie dazu die 
Datensatzlänge 25 ein, die Länge des Bemerkungssatzes 
ebenfalls mit 25, die Schlusselposition mit i und die 
Schlüssellänge auch mit 25. Diese Werte sind natürlich 
beliebig und können von Ihnen verändert werden. Allerdings 


müssen Sie dann auch die Druckausgabe entsprechend ändern. 


Vom Haupmenue aus können Sie die einzelnen Programateile 
einfach durch Angabe der entsprechenden Nummer anwählen. 
Jeden Programmteil können Sie mit der f2-Taste verlassen. 
Der Programteil "Thema eingeben" dient dazu ein neues Thema 
und die dazugehörige erste Stelle einzugeben. Alie weiteren 
Stellen müssen über den  Programmteil “Steile eingeben" 
eingetragen werden. 

Bearbeitet wird immer das letzte Thema, das in "Thema 
eingeben" bzw. "Thema suchen" angesprochen wurde. Die 
Programmteile "Thema löschen", "Stelle eingeben" und "Thema 
drucken" beziehen sich also immer darauf. 

Wollen Sie das aktuelle Thema ändern, so müssen Sie entweder 


ein neues Thema eingeben oder ein anderes Thema suchen. 


Das vorstehende Programm enthält zwar alle notwendigen 
Programmteile für eine Literaturstellenverwaltung, aber auch 
nur diese. Ihrer Fantasie bleibt es nun überlassen, das 
ganze Programm luxuriöser und ausgefeilter zu gestalten. 
Doch Sie haben sicher erkannt, wie eintach es mit Hilfe der 
Unterprogramme aus Kapitel 2 geworden ist, sich eine eigene 


Dateiverwaltung zu schreiben. 


Noch ein paar Tips zur Erweiterung : 


Wenn Sie im Hauptmenue einen weiteren Programmpunkt 


eintragen wollen, so tragen Sie den zugehörigen String 


einfach in die Tabelle ab 10000 ein und erhöhen die Grenzen 
in den Zeilen 1040 und 1070. Außerdem müssen Sie noch den 


Sprung in Zeile 1290 eintragen. 


Das Programm läßt sich noch an vielen Stellen verfeinern. 
Von den Farben, über die Möglichkeit, Eingaben wieder 
rückgängig zu machen, Suchen mit Jokern und so weiter sind 
Ihrer Fantasie keine Grenzen gesetzt. Wenn dieses kleine 
aber feine Programm Ihren Programmierehrgeiz angestachelt 
hat, so sind wir bereits zufrieden. Wer weiß, was aus diesem 


Programm vielleicht einmal unter Ihren Händen wird? 


4.6 Eine komfortable Adressenverwaltung 


Teil 1: 


Mit diesem Programm können Sie Ihre Adressen bequem 
verwalten. Adressen erfassen, nach Adressen suchen und diese 
für Etiketten passend ausdrucken ist problemlos möglich. 

Wenn Sie das Programm starten, erscheint als erstes 


folgendes Menü auf dem Bildschirm: 


ADRESSVERWAL TUNG 


3t 3t 3C 3C 3E C 3E JE JE IE 3E 3E ΜΕ 9E E C 3E IE IE I 9E EE E t 2 2 16 0 2 2 0 0 2 2 2 20; 


* * 
* MENUE * 
* * 
* -1- ADRESSEN EINGEBEN * 
* * 
* -2- ADRESSEN AUF DISK * 
* * 
* -3- ADRESSEN VON DISK * 
* * 
* —4- DRUCKERAUSGABE * 
* * 
* -9- BILSCHIRMAUSGABE * 
* * 
* —6- ENDE * 
* * 


3t 3E 4E 3E E αλα EEE IE IE IE IE IE IE HIE IE E E 3E 3E 1E 1E 3E 3€ 3€ 3€ 3€ 9E 9C E 2 2 2 2 E IE E 


* * 
* IHRE WAHL 7? * 
* * 


Jt 3t 3E 3E 3E 3E λα λα λα λα 1E 3E IE 1€ 9E 3E 3€ 9€ 3E 9E 3E 9E 9E IE EE IE IE IE IE 2 2 200 


Sie sehen nun, welche Funktionen das Programme Ihnen zur 


Verfügung stellt. 
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Die einzelnen Menüpunkte 


-1- ADRESSEN EINGEBEN 
In diesem Programmteil geben Sie die Adressen ein. Für die 


Eingabe ist folgende Form vordefiniert: 


ANREDE : ( HERR/FRAU/FIRMA o.ä ) 
NAME 
ADRESSE: ( STRASSE oder POSTFACH ) 
PLZ/ORT: 


Nachdem eine Adresse eigegeben wurde, erscheint die Abfrage 
ob Sie speichern, weiter eingeben oder zurück in das Menu 
wollen. Dies beantworten Sie mit der entsprechenden 


Funktionstaste. 


-2- ADRESSEN AUF DISK 
Hier können Sie aus dem Menu die Adressen auf Diskette 


abspeichern. 


-3- ADRESSEN VON DISK 
Mit diesem Programmteil laden Sie auf Diskette gespe»cherte 


Adressen in den 0-64 ein. 


-ᾱ- DRUCKERAUSGABE 

Hier haben Sie die Möglichkeit, Adressen auszudrucken. 
Hierfür stehen Ihnen Zwei Optionen zur Verfügung: 

SELEKTION: Beantworten Sie diese Frage mit "j", können Sie 
nach einem der 4 Adressfelder (Anrede/Name/Adresse/PLZ-Ort) 
bestimmen, welche Adresse gedruckt werden soll. 

Beantworten Sie die Frage mit “n", werden alle gespeicherten 
Adressen hintereinander ausgedruckt. Das Format entspricht 


einer Etikettengröße von 55 Spalten und 9 Zeilen 


-5- BILDSCHIRMAUSGABE 
Diese Programmteil arbeitet grundsätzlich wie unter -4- 


beschrieben, jedoch erfolgt die Ausgabe auf dem Bildschirm. 


Zum Neiteroiattern müssen Sie nach jeder Adresse die 
fi-Taste drücken. Wird das Ende der Datei erreicht, 


Erscheint die Meldung "ENDE DER DATEN", mit {5 gelangen Sie 


in das Menu. 


—6- ENDE 


Mit diesem Frogrammteil verlassen Sie das Programm. 


Und nun wollen wir uns das Programm teilweise etwas genauer 
ansehen. 

Den zentralen Punkt im Programm stellt das Menu dar. Von 
hier aus werden die einzelnen Progr ammfunktionen 
angesteuert, hierhin kehrt man aus diesen wieder zurück. Wie 
steuert man nun diese Funktionen, und wie verhindert man 
Fehleingabe? Eine Antwort auf diese Fragen liefert der crste 
Teil des Programmes, in den Zeilen 23 - 130. 

Als erstes wird ein Menü aufgebaut, indem die einzelnen 
Funktionen mit Zahlen gekennzeichnet sind, dies erleichtert 
später die Verzweigung. Bei der Abfrage nach der gewünschten 
Funktion wird der GET-Befehl für Stringeingabe benutzt. Dies 
aus zwei Gründen: 

a. Das Programm fährt "auf Knopfdruck" weiter, d.h. es wird 
nur eine Eingabe verlangt. 

b. Da der String durch VAL in eine Zahl umgewandelt wird, 
wird die Fehlerabfrage erleichtert. 

Liegt der eingegebene Wert ın den entsprechenden Grenzen, 
kann bequem mit dem ON..GOSUB Befehi in die Unterroutirien 
verzweigt werden. 

Die Zeile 130 mit dem Sprung nach Zeile 5 ist nötig, damit 
bei der Rückkehr aus den Routinen die Maske neu aufgebaut 
wirc. 

Noch ein kleiner Hinweis für die Anwender, die den 
Datenumfang an Ihre Bedürfnisse anpassen wollen. Die max. 
Anzahl der Datensätze wird durch eine Variable bestimmt ( s. 


Variablenliste ), festgelegt ist sie momentan auf 200. Das 
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Format des Etikettenpapiers ist auf 33 Spalten auf 9 Zeilen 
definiert. Wollen Sie hier Änderungen vornehmen, können Sie 
die Variable für die Spaltenzahl sowie den Ausdruck in den 


Zeilen 4110 - 4199 verandern. 


Variablenliste - Adressenverwal tung 

max Maximale Datensatzzahl 

sp Spaltenzahl der Etiketten 
ad$ (*,*) Zweidimensionales Feld für Adressen 
ws Eingabestring für Menu 

W Verzweigungsvariable 

a Datensatznummer 

i,j Laufvariablen 

sl Selektionsfeld 

sl$ Selektionsstring 

ls Länge Selektionsstring 


Und nun das Programmlisting 


O REM «κκ ADRESSEN V. 1.1 DEZ 83 ##+ 

1 MAX=200 : SP=33 

2 DIMADS (MAX , 4) 

5 PRINT CHR$ (147) *CHR$ (142) *CHR$ (8) 

10 REM κκ INITIALISIERUNG BILDSCHIRM :* 

20 POKE 53280,2 : POKES3281,2 : PRINT CHR$(144) 

22 REM κκ AUFBAU MENUE εκ 

23 PRINT SPC(10) ;CHR$(18) “ADRESSENVERWAL TUNG": PRINT 
29 PRINT " 1t 3 3 3t 3 3 3t J 3€ JE 3€ 3E 3E JE IE JE EE 2. IJE IEE dE E E AE EIE IE E E AE E 5 
30 PRINT"*"SPC(3B)"s": : PRINT"*"SPC(15) "MENUE"SPC(17) "3"; 
> PRINT"«"SPC (38) "e"; 


31 PRINT'* -1- ADRESSEN EINGEBEN #"; : PRINT 
"+" OPC (38) "gite 
52 PRINT"* -2- ADRESSEN AUF DISK *"; : PRINT 


"2"SPC (38) ΕΤ. 


33 ΡΗΙΝΤ"« -ᾱ- ADRESSEN VON DISK *"s : PRINT 
"a"SPC (38) "#"; 
34 PRINT"* -4- DRUCKERAUSGABE *"; : PRINT 
"A"SPC (38) "ας 
35 PRINT" -5- BILDSCHIRMAUSGABE *"3 : PRINT 
"#"SPC (38) "3 
36 PRINT" -6- ENDE ans : PRINT 


"#" SPC (38) "#"5 

37 PRINT " ann u att 3C HE EH TE HE SEE JEDE JE EIE EEE EE EE 3 

38 PRINT"#"SPC (38) “#"s = PRINT"* IHRE WAHL ?"SPC (24) "%";5 
= PRINT"#"SPC (38) "#"'s 

39 PRINT" 3636 33030 EHEN EEE ; 

100 GETW$: IFW$-""THEN10OO 

110 W=VAL (W$) = IFW< 1ORW>STHEN100 

120 ONWGOSUB1000, 2000, 3000 , 4000 , 5000 ,9999 

130 GOTOS 

1000 A=A+1 

1010 PRINT CHR$ (147), CHR$ (18) "ADRESSEN EINGEBEN NR. "3 à: PRI 
NT: PRINT: 


1020 INPUT"ANREDE =: ";AD$(A,1) : PRINT 
1021 IF LEN(AD$(A,1)) > SP THEN 1020 
1022 INPUT"NAME =: "z;AD$(A,2) : PRINT 
1025 IF LEN(AD$(A,2)) >SP THEN 1022 
1024 INPUT"ADRESSE: "sAD$(A,S) : PRINT 


1025 IF LEN(AD$(A,50) »SP THEN 1024 

1026 INPUT"PLZ/ORT: ";AD$(A,4) =: PRINT 

1027 IF LEN(AD$(A,4)) >SP THEN 1026 

1028 PRINT : PRINT CHR$ (18) "Fi=WEITER"SPC (3) “F3=SPEICHERN"S 
PC (5) "FS=MENUE" 

1030 GETA$ 

1040 IFA$-CHR$ (133) THEN1000 

1050 IFA$-CHR$ (134) THENGOSUB2000: RETURN 

1060 IFA$-CHR$ (135) THENRETURN 

1070 GOTO1030 

2000 PRINT CHR$(147); CHR$(18D) "ADRESSEN AUF DISK":PRINT:PRIN 


2010 OPEN1,8,15,"S: ADRESSEN. DAT": CLOSE1 
2020 0PEN1,8,2,"ADRESSEN. DAT,S,W":PRINT#1,A 
2030 FORI-1TOA:FORJ-1TOA 


2040 PRINT"GESSHRIEBEN WIRD ADRESSE NR. " {1 CHR$ (145) 
2050 PRINT#1,AD$(I,J):NEXT:NEXT:CLOSE1 

2060 RETURN 

3000 PRINT CHR$ (147) ; CHR$ (18) "ADRESSEN VON DiSK":PRINT:PRIN 
$ 

3020 GPEN1,8,2, “ADRESSEN. DAT,S,R":INPUT#1,A 

3030 FORI=1TO0A:FORJ=1T04 

3040 PRINT"GELESEN WIRD ADRESSE NR. "I3CHR#(145) 

3050 INPUT#1,AD$(1,J) : NEXT: NEXT: CLOSE1 

3060 RETURN 

4000 PRINT CHR$ (147) ;CHR$ (18) "DRUCKERAUSGABE " : PRINT: PRINT 
4010 OPEN4,4,7 

4020 INPUT"SELEKTIEREN J/N";EG$ : IFEG$="J"THENGOSUB4500 |: 
RETURN 

4050 FORI=iTOA : GOSUB4110 : NEXT =: CLOSE4 : RETURN 

4100 REM ** SUERDUTINE ETIKETTENDRUCK «κ 

4105 PRINT"GEDRUCKT WIRD ADRESSE NR."I;CHR$(145) 

4110 PRINT&4 

4120 PRINT#4,AD$(1,1) 

4130 PRINT#4 

4140 PRINT#4,AD$(I,2) 

4150 PRINT#4 

4160 PRINT#4,AD$ (1,3) 

4170 PRINT#4,PRINT#4 ADS (1,4) 

4190 PRINT#4 

4199 RETURN 

4500 PRINT CHR$(147);CHR$(18) "SELEKTION" : PRINT : PRINT 
4510 PRINT"SELEKTION NACH: " 

4511 PRINT"-1- ANREDE" 

4512 PRINT"-2- NAME" 

4513 PRINT"-3- ADRESSE" 

4514 PRINT"-4- PLZ/ORT" : PRINT 

4515 PRINT"IHRE WAHL ? "5 

4520 GETW$ : IFW$=""THEN4520 

4530 W=VAL (W$) : IFW<LORWIATHEN4520 

4540 PRINTW : SL=W 

4550 PRINT : PRINT"INHALT DER SELEKTION:" : INPUTSL$ : LS=L 
ΕΝ (51.8) 
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4600 FORI=1TOA 

4610 IF LEFTS#(AD$(1,SL) εἰ 5)Ξ5ἱ 5 THENGOSUB4100 

4620 NEXT : CLOSE4 : RETURN 

9000 PRINT CHR$ (147) ; CHR$ (18) "BILDSCHIRMAUSGABE " : PRINT: PRIN 
T 

3020 INPUT"SELEKTIEREN J/N";EG$ : IFEG$="J"THENGOSUBSSOO : 
RETURN 

5050 FOR I-1TOA : GOSUB 5100 : NEXT 

3040 PRINT : PRINT"ENDE DER DATEN ''" : PRINT CHR$(18)"=> F 
τι 

9050 GET FSS : IFF3$<>CHR$ (134) THENSOSO 

3060 RETURN 

5100 PRINT CHRS (147) ;CHR$ (18) "ADRESSE ΝΗ. "el : PRINT :PRINT 
SilO FOR J=1TO4 

3120 PRIN? AD$(I,J) : NEXT 

5130 PRINT : PRINT CHR$(18)"WEITER MIT F1" 

3140 GET F1$ : IF F1$« 2CHR$ (133) THENS1 40 

39190 RETURN 

2000 PRINT CHRS (147) 5; CHR* (18) "SELEKTION" : PRINT : PRINT 
3910 PRINT"SELEKTION NACi: " 

2011 PRINT"-1- ANREDE" 

5512 FRINT"-2- NAME" 

33913 PRINT"-3- ADRESSE" 

S914 PRINT"-4- PLZ/ORT" : PRINT 

30215 PRINT"IHRE WAHL ? "; 

3520 GETWS : IFWS="" THENSS2O 

9550 W=VAL (W$) 3 IFW«X10RW»4YHENS520 

2540 PRINTW : SL=W 

3350 PRINT : PRINT" INHALT DER SELEKTION:" : INPUTSL$ : LS-L 
EN(SL$) 

5600 FORI=1TDA 

39610 IF LEFT$(AD$(I,SL),1L 8) 2SL 5 THENGOSUBS100 

5620 NEXT : PRINT : PRINT"ENDE DER DATEN !!" : PRINT CHR$(1 
g)"-» FS" 

9630 GET F5$ : IFF3$< >CHR$ (134) THENS&30 

3640 RETURN 

9999 PRINT CHR$(147):PRINTTAB(18) "ENDE" z: CLR: END 


READY. 


o9. KAPITEL: DIE VERWENDUNG VON FROGRAMMIERHILFEN AM BEISPIEL 
VON MASTER 54 


Im Verlaufe dieses Buches haben Sıe gesehen, da3 man sich 
die Frogrammierung neuer Anwendungen erheblich erleichtern 
kann, wenn man über eine entsprechende Programmbibliothek 
mit Bausteinen und Routinen zu den standig wiederkehrenden 
Froblemen eines guten AÄnwendungsprogramms besitzt. Viele 
dieser Routinen werden Sie sicherlich mit der Zeit selbst 
entwicklen oder aber aufarund von Empfehlungen oder sogar 
entsprechenden Listings in der Fachliteratur und den immer 
zahlreicher werdenden Computertachzeitschriften in Ihre Pro- 


arammbibliothek übernehmen konnen. 


wahrend fur den engagierten Hobbyisten die Entwicklung neuer 
Routınen und Frogrammiertricks oft reiner Selbstzweck ist, 
der ihm auch entsprechenden Spas macht, rıchtet der 
Frogrammierprofi sein Augenmerk stärker auf die eigentliche 
Anwendung. Die vielen Routinen, die er für eine effiziente 
Frogrammerstellung braucht. sind fur ihn reine Werkzeuge, 
und was liegt naher, als sich deratige Werkzeuge einfach zu 
kaufen. Das macht zwar nicht so viel Spaß wie die 
Figenentwicklung, spart dafür aber eine Menge Zeit und damit 


letztendlich auch Geld. 


Für den Commodore 64 werden mittlerweile eine ganze Reihe 
verschiedener BASIC-Erweiterungen und Hilfsmittel angeboten, 
die die Froarammerstellung bedeutend erleichtern und 
komtortabler machen scllen. Stellvertretend tur dıe 
zahlreichen Hılfsmittel mochten wir Ihnen anhand von MASTER 
64 zeigen. welche Möalıchkeıten ein solches  zuaekauftes 


Froarammierwerkzeug bietet. 


MASTER 54 ist sehr ausgereift und umfassend. so daß man es 
ohne weiteres als Programmentwichlungssvstem bezeichnen 
kann. MASTER wurde ursprunglich nach dem Vorbild ent- 
sprechender Frogrammierwerkzeuge im Großrechnerbereich fur 
die aroen Commodore Computer der Serie 8000 entwickelt. Es 


existiert heute in Versionen fur die Commodore Computer 


280 


8052, 8096, 64, 68680 und 700. Alle Versionen sind 
weitestgehend identisch, so dafi Programme, die unter MASTER 
auf einem Commodore Rechner erstellt wurden, sich leicht auf 


andere Commodore Rechner übertragen lassen. 


MASTER 64 unterstützt viele der Konzepte, die in diesem Buch 
vorgestellt werden und enthält alle Elemente, die für eine 
einfache Erstellung anspruchvoller Programme nötig sind, 


nämlich: 


* Bildschirmverwaltung zur raschen Erstellung komfortabler 
Bildschirmmasken 

* ISAM-Dateiverwaltung für schnellen Datenzugriff und 
etfiziente Dateiverwaltung 

* Druck-Generator zum einfachen Erstellen und Austesten 
beliebiger Ausgabemasken 

* Programmschutz durch 'nolist -Modus und individuelle 
Schlussel 

* Mehrfache genaue Arithmetik, alle Grundrechenarten mit 22 
Stellen Genauigkeit 

κ BASIC-Erweiterungen: Toolkitfunktionen und das komplette 


BASIC 4.0 


Damit Sie einen Eindruck von diesem  Frogrammierwerkzeug 
bekommen, wollen wir Ihnen die einzelnen Befehle von MASTER 


64 einmal vorstellen. 


MASTER Bıldschirm-Maskengenerator 


Wenn Sie die Unterprogramme zur Dateneingabe in diesen Buch 
gesehen, so haben Sie sicher einen Eindruck davon bekommen, 
welcher Aufwand für eine komfortable, sicherere, universelle 
und dazu noch schnelle Eingaberoutine erforderlich ist. 
MASTER greift nun das Konzept der Bildschirmzonen auf und 
stellt Ihnen fertige BASIC-Befehle zur Ein- und Ausgabe von 


Daten zur Verfügung. 


Eine Bildschirmzone ist dabei einfach ein Feld auf dem 
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Bildschirm, das durch seine Position (Zeile und Spalte) und 
seine Länge gekennzeichnet ist. Mit MASTER können Sie bis zu 
127 dieser Zonen definieren, auf die sich dann die Befehle 


zur Ein- und Ausgabe beziehen. 


Bei der Anwendung der neuen Befehle gehen Sie in folgender 


Reihenfolge vor: 


i. Definition der Zone mit Angabe der  fosition auf dem 
Bildschirm (Zeile/Spalte), Länge der Zone sowie eine evtl. 
Formatvorschrift zur automatischen Formatierung von 
numerischen Daten. 

2. Datenanforderung aus einer Zone. In der Zone erscheint 
der Cursor und Sıe können Daten eingeben. Dabei können Sıe 
die Cursortasten beliebig benutzen: eın Verlassen der Zone 
oder eine Beeinflussung des übrigen Bildschirms ist dabei 
ausgeschlossen. Die Daten werden mit ‘Return’ oder anderen 
selbst zu definierenden Kontrolltasten übernommen. 

3. übernehmen des Zoneninhalts in eine Variable. Mit eınem 
MASTER-Befehl wird der Inhalt einer Zone (bestimmt durch die 
Zonennummer) einer BASIC-Variablen zugewiesen. 

4. Ausaabe in eine Zone. Hiermit können Sıe eine Variable 
oder einen beliebigen Ausdruck formatiert in eine Zone 


ausgeben. 


Die Schritte 2 bis 4 können beliebig oft in einem Froqramm 
benutzt werden; die Definition braucht nur einmal zu 


geschehen. 


Zur weiteren Erhöhung des komforts stehen Ihnen Befehle zum 
Ziehen von Linien, zur Ausgabe von Daten an beliebige 
Bildschirmpositionen, sowie zum Löschen, Invertieren und 
Scrollen (auf und ab) von beliebigen Teilen des Bildschirms 


zur Verfügung. 


Wollen Sie mit mehreren Bildschirmmasken in einem Froqramm 
arbeiten, so können Sie mit MASTER zusätzlich virtuelle 
Bildschirme im Arbeitsspeicher definieren, die 5ie schon mit 


Daten versorgen können, während ein anderer Bildschirm noch 
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angezeigt wird. Den virtuellen Bildschirm können Sie später 


mit dem realen Bildschirm austauschen. 


Besonders nutzlich ist 


auch die Moglichkeit, komplette 


Bildschirmseiten eınschließlich aller Zonendefinitionen auf 


Diskette abzuspeichern und von dort wieder zu laden. Sie 


sparen dadurch in Ihren Programmen viel Speicherplatz, da 


der Aufbau der Bildschirmmaske durch ein separates Frogramm 


geschehen kann. das nur 


können Sıe so die 
irgendeine Anderung 


ertorderlich ıst. 


einmal zu laufen braucht. Auch 
Bildschirmmaske andern, ohne daß 
an Ihrem eigentlichen Froaramm 


Hier sınd nun samtlıche Befehle der MASTER-Bildschirm- 


steuerung zusammengetasst: 


decz n,„z,s,l („ty)(„f# 


regz n 


inz n,af 


outz n,at 


clearz n 


revz n 


out as.z,.s 


clear 1.Ζ.5 


rev z2.5.12,15 


scroll z,s,lz.ls.ty 


tline 1,2,5 


Deklariert die Zone Nummer n ab 
Zeile z, Spalte s mit der Lange 1. 
Optional kann noch ein Typ ty 
angegeben werden, der bestimmt, ob 
diese Zone z.E. nur numerische Daten 
annimmt. Dıese Daten können mit dem 
Formatstring f$ formatiert werden. 
Mit diesem Befehl wird eine 
Dateneingabe in Zone n veranlasst. 
übernahme der eingegebenen Daten in 
eine Variable 

Ausgabe von Daten in eine Zone 
Loscht den Inhalt einer Zone 
Invertiert eine Zone auf dem Bild- 
schirm 

Gibt einen String ab Zeile z, Spalte 
5 aus 

Loscht ein Feld auf dem Bildschirm 
Invertiert ein Bildschirmfeld der 
Lange lz und der Tiefe 15 

Scrollt ein Bildschirmfeld auf oder 
ab 


Zieht eine waagerechte Linie der 
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Länge 1 ab Zeile z, Spalte s 

τσοὶ 1.2.5 Zieht eine senkrechte Linie der 
Lange 1 ab Zeile z, Spalte s 

ssave u,fn# Speichert eine Bildschirmmaske unter 


dem Namen fn$ auf Diskette ab 


sload u.fn$ Lädt eine Bildschirmmaske von Dis- 
kette 

sset n Selektiert einen virtuellen Bild- 
schirm 

sclear Loscht den selektierten Bildschirm 

scopy Kopiert einen virtuellen Bildschirm 


auf den realen Bildschirm 


sexch Tauscht zwei Bildschirminhalte aus 


Ein Programmausschnitt zur Eingabe eines Datensatzes konnte 


z.B. so aussehen: 


100 decz 1.5.20.6.n: rem zone 1. numerisch 

110 decz Z2,7,15.25 : rem zone 2, alphanumerisch 
120 out "Kundennummer", 5,1 :rem zeile 5, spalte 1 
130 out "Name", 7.1 

140 reaz | : rem eingabe zone 1 

190 ınz 1,kn : rem kundennummer einlesen 

160 reqz 2 : rem eingabe zone Z 

170 inz 2,nmf£: rem namen einlesen 

180 gosub 1000 : rem daten verarbeiten 


190 clearz 1,2 : rem zone 1 + 2 löschen 


200 goto 140 : rem nachste eingabe 


MASTER-Druckmasken-Generator 


Das aleiche konzept wie beim Bildschirm-Maskengenerator 
bietet Ihnen MASTER auch fur die Druckausgabe. 

Definieren Sie zuerst Ihre Druckseite mit oberen, unterem und 
linken Rand. Diese Definition wird auf Diskette geschrieben. 
Nun können Sie analoq zum Bildschirm Druckzonen  detinieren, 


die wıeder durch Zeile, Spalte und Länge sowie Format 
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bestimmt werden. Zusätzlich können Sie noch konstante Texte 
einfügen, z.B. für Formulare oder vüberschriften. Dies kann 
auch außerhalb des eigentlichen Anwenderprogramms geschehen. 
Dort wird dann die Druckmaske nur noch mit den vom Programm 
anfallenden Daten ausgefüllt, wobei die Ausgabe nicht nur 
zeilenweise, sondern in beliebiger Reihenfolge geschehen 
kann, z.B. die letzte Druckzeile zu erst und dann die 
restlichen Zeilen. Wenn die Maske ausaefullt ist, kann Sie 
ein- oder mehrmals auf dem Drucker (zum Austesten auch auf 
den Bildschirm) ausgegeben werden. Wenn Sie jetzt die 
Druckfelder wieder löschen, können sie vom Frogramm wieder 
neu ausgefüllt werden. Insgesamt stehen Ihnen die gleichen 
Funktionen wie bei den Bildschirmmasken zur Verfügung (mit 


Ausnahme der Dateneingabe). 


Auch hier stellen wir Ihnen wieder die MASTER-Befehle vor: 


pcreate u,fn$,2.S.ro.,ru.rl Deklariert eine Druckseite mit z 
Zeilen und s Spalten, einem 
oberen Kand von ro. einem unteren 
Rand von ru und einem linken Rand 
von rl. 

popen öffnen einer Druckseite zur 
Bearbeitung 

pdecz n,z,s,1(,ty) (ντ) Definiert eine Druckzone (analog 


einer Bildschirmzone) 


poutz n,at Ausgabe in eine Druckzone 

pclearz n Loscht den Inhalt einer Druckzone 

pprint lf Ausgabe einer Druckseite auf den 
Drucker 

pclear 1,2,s Loschen eines Feldes einer 


Druckseite 

pout a$,2,s Gibt einen String ab Zeile Ζ, 
Spalte s aus 

pclose Schließt eine Druckseite 


perase Löscht eine Druckseite 
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MASTER-ISAM Dateiverwaltung 


In der Dateiverwaltung bietet MASTER Ihnen die komfortabelste 
Möglichkeit, die ISAM-Datei (Index Sequentiell Access 
Method). Bei der  indexsequentiellen Zugriffsmethode wird 
jeder Datensatz uber einen sogenanten Zugriffsschlüssel, den 
Index, angesprochen. In einer Adressdatei kann dies z.B. der 
Name sein. Sie brauchen sich also weder die Fosıtion des 
Datensatzes innerhalb der Datei noch eine Datensatznummer zu 
merken - der Aufruf geschieht einfach über den Namen. Das 
Anlegen einer ISAM-Dateı geschieht  menuegesteuert über ein 
Datei-Reservierungs-Frogramm, das alle Farameter der Datei 
abfraat: Datensatzlänge bis max. 254 Zeichen,  Schlüssellanae 
bis zu 30 Zeichen sowie max. Anzahl von Datensätzen. 
Hinsichtlich der Dateigröße besteht keine Einschränkung, eine 


MASTER-Datei kann über die ganze Diskette gehen. 


Folgende Befehle für ISAM-Dateien stehen Ihnen zur Vefuguna: 


iopen 1f,u,fn#$ öffnet eine MASTER-ISAM-Datei mit der 


logischen Dateinummer 1f auf dem Gerät 


u (normalerweise 8) mit dem Namen ftnt 


iwrite lf.rc$ Schreibt einen neuen Datensatz rc$ in 
die Datei 
iread lf,ky$.rc$ Liest den zum Zugriffsschlüssel kv 


gehörenden Datensatz in die Variable 
rct 

1exist lf.kyt Testet, ob zum Zuqriffschlussel kvt 
ein Datensatz existiert 

iupdate lf.rc*t Schreibt einen aeänderten Datensatz 
rc* in die Datei zurück 

idelete lf.kv£t Loscht einen Datensatz 

istart lf,kvt.mk#,rct® Startet das Lesen in aufsteigender 
Reihenfolge. Dabei ıst mk + eine 
Auswahlmaske, die nur bestimmte 
Datensatze selektiert. 

istart—-lf ,ky#,mk?,rct#t Wie oben, jedoch in absteigender 
Reihenfolge 


inext lf,mk$,rct Liest nächsten Datensatz in Schlussel- 
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reihenfolge 

ınext-1it.mk#+.rc# Wie oben, jedoch in absteigender Rei- 
henfolge 

iadd lf.rc# Schreibt einen Datensatz ohne  auto- 
matısches Einfügen des 
Zugriffsschlussels 

ivalidate lf Einfügen des Index der mit iadd 
geschriebenen Datensätze 

irestore lf Positionierung auf den zuerst 
geschriebenen Datensatz 

idata lf,mk?#,rct Lesen der Datensätze in Eingabe- 


reihenfolge 


iupgrade lf Sichern des Index auf Diskette 
iclose lf Schliefst eine MASTER-ISAM-Datei 
Bei jeder Dateloperation wird eine Statusvarıbale "ok 
gesetzt, die Sie uber das ordnungsgemäße Ausfuhren des 


Betehls informiert. MASTER kann Ihre Datensätze packen, d.h. 
alle uberflussiqe (redundante) Information wird entfernt, so 
daß sich eine Einsparung von ca. 19 - 58% des Datensatzes 
eraibt: dadurch werden effektive Datensatzlängen von bis zu 
ca. 400 Zeichen moglich. 

Auch die Datensicherheit wird nicht vernachlässigt: Sollte 
der Index auf der Diskette zerstört sein, steht ein Programm 


zur Verfügung, daß die komplette Datei wieder rekonstruiert. 


Auch hier wieder ein typischen  Programmbeispiel mit einer 
MASTER-ISAM-Datei, das nach einem Kundennamen tragt und aus 


der ISAM-Datei den entsprechenden Satz liest. 


100 iopen 1,8, "B:kunden" 

110 regz 1 : inzi, ΚΠΣ : rem kundenname 

120 iread 1. kn#, dat : rem datensatz lesen 

130 out dat, 10.1 : rem datensatz am bildschirm anzeigen 
140 clearz 1 :rem eingabefeld loschen 


1509 goto 1192 
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MASTER BASIC 


Außerdem hat MASTER noch folgende BASIC-Erweiterungen: 


Mehrfach genaue Artihmetik. 


alle Grundrechenarten können mit 


22 Stellen ausgeführt werden. Ebenso existieren Befehle, die 


den Direktzugriff auf Diskette vereinfachen: 


uplow 


datepack 


dateunpack 


aoto zn 


gosub zn 

madd ni1£.n2$.ni3tf 
msub ni*+,n2+,nS5f# 
mmul nif,n2#,nSf 
mdiv ni£.n2$,.n35t€ 


creatst at, JC, ai 


putst atsty,bF,p.1 
oetst a$:ty.bf.p.l 


inblock tr.seí.d) ἕνα) 


putblock tr,.se(,d) (,u) 


takbuf af$,p.l1 


putbuf αξ.ρ.] 


hunt chrf(a) ,af,p 
nolist af,d(d> 


onerror zn 


Vertauschen von Groß- und klein- 
buchstaben 

Packen des Datums und Früfung auf 
Gultigkeit 

Entpacken des Datums 

Berechnetes goto, erlaubt berech- 
nete Sprünge und kann z.B. 
umf anareiche ON. . GOTO Sprung- 
leisten ersetzen 

Berechnetes gosub 

Addition mit 22 Stellen 
Subtraktion mit 22 Stellen 
Multiplikation mit 22 Stellen 
Division mit 22 Stellen 

Erzeugt einen String der Länge 1 
mit dem ASCII-Kode a 

Packen von Daten 

Entpacken von Daten 

Liest Track tr Sektor se von 
Diskette ın einen Fuffer 

Schreibt einen Elock aus einem 
Fuffer auf Diskette 

Transfer Fuffer-String 

Transfer String-Fuffer 

Suchen von a in af 
Abspeichern ım nolist—Modus, 
schutzt ein Frogramm vor 
unberechtigtem Auflisten. 


Abhandlung von Diskettenfehlern 


Hier noch ein paar Bemerkungen zum Facken von Daten: MASTER 


kann alphanumerische Strings sowie Fließ- und Festkommazahlen 
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packen. Dies geschieht automatısch mit dem Befehl putst zum 
Packen und getst zum Entpacken. Dabeı wird je nach Typ eine 


Platzersparnis von bis zu ca. S8 % erreicht. 


MASTER 1 enthält weiterhin einen sehr nützlichen Frogrammer 's 
Toolkit, wie wir ihn in diesen Buch häufig erwähnt haben, mit 
den Befehlen: 

auto, delete, renumber, dump, if..then..else, hardcopy. trace 
on. .of f 

Diese Befehle erleichtern Ihnen Eingabe, Editieren und 


Austesten Ihrer Frogramme. 


Des weiteren stehen Hilfsfunktionen fur ISAM-Dateıen zur 
Verfugung, z. B. übertragen von sequentiellen Dateien in 
ISAM-Dateien und umgekehrt sowie Dump-Funktionen fur 


ISAM-Dateien. 


Fur die kommerzielle Nutzung Ihrer Frogramme ist der 
Listschutz durch den ‘nolist’-Befehl sehr nutzlich. 

Mit MASTER geschriebene Programme sind auf allen 
Commodore-Rechnern mit MASTER einsetzbar. Um die volle 
Kompatibilität der ó4er Programme auf den anderen Rechnern zu 
garantieren, enthalt MASTER 64 noch das komplette BASIC 4.8 
mit den komfortablen Diskettenbefehle, wie z.B. dload, dsave, 
scratch, record usw. Damit konnen Sie auch ohne kKklimmzuge 


relative Dateien auf der VC-1541 benutzen. 
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9.2 STRUKTO 64 


In Kapitel 1 dieses Buches wurde das strukturierte 
Programmieren erläutert. Wir haben gesehen, daß es 
grundsätzlich möglich ist, mit BASIC strukturierte Programme 
zu schreiben, jedoch ist BASIC nicht geeignet, diese 
Programmstrukturen übersichtlich darzustellen und läßt 
außerdem immer noch ein "Verletzen" der Programmstruktur zu, 
was nicht gerade zu einer logisch korrekten Programmierung 
beiträgt. Warum sollte es also nicht möglich sein, die 
übersichtliche Programmstruktur von Sprachen wie Pascal mit 


der Einfachheit der System-Bedienung von BASIC zu vereinen? 


Dies wurde durch STRUKTO 64 erreicht: 

STRUKTO 64 ist eine strukturierte Programmiersprache, mit 
der die in Kapitel 1.6 dargestellten Nassi-Shneidermann 
Diagramme direkt in den Programmtext umgesetzt werden 
können. Die so erstellten Programme sind danach genauso 
übersichtlich wie die Struktogramme selbst, was durch eın 
automatisches Einrücken erreicht wird. Die Bedienung des 
Systems ist jedoch weiterhin genauso einfach wie die von 
BASIC und wird sogar noch durch einen integrierten Toolkit 
erleichtert. Die Programmzeilen sind weiterhin mit Nummern 
versehen, Jedoch dienen diese nicht mehr als Sprungadressen 
für GOTO- und GOSUB-Befehle, sondern nur noch als 
Identifikation der jeweiligen Zeile beim LISTen bzw. 


Eingeben von Zeilen. 


Nun aber genug der Theorie. Hier sind die von STRUKTO 64 


verwendeten Kontrollstrukturen: (vgl. Kapitel 1.6.) 


1. Der Verarbeitungsschritt 


Dieser stellt eine einfache Anweisung dar, die genau dann 


ausgeführt wird, wenn der Interpreter an der entsprechenden 


Programmzeile "ankommt". 


Er sieht in STRUKTO 64 genauso aus wie in BASIC: 


140 print at," Datum: ";dt$ 


2. Der Unterprogrammaufruf 


Es gibt in STRUKTO 64 zwei Arten von Unterprogrammen, 
nämlich solche mit Nummern oder solche mit Namen. Ein 


Unterprogramm mit Nummer sieht dann folgendermaßen aus: 


3000 begin ὁ 

3010 input "6. Eıngabe:";a#(6) 
3020 print 

3030 end 


Und so ein Unterprogramm mit Namen: 
4000 entry linie zeichnen 

4010 x=cos (t) #80+90 

4020 y=sin(t) #80+80 


4030 line 0,0;x,y 
4040 exit 


Aufgerufen werden diese Unterprogramme durch den Befehl 
gosub 6 (bei dem Unterprogramm mit Nummer ) bzw. 
pass linie zeichnen (bei dem Unterprogramm mit Namen). 


3. Die Zweifachverzweigung 


Die Zweifachverzweigung wird in STRUKTO 64 durch die 


if-Anweisung verwirklicht. Beispiel: 


100 if a-O 
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110 print "a gleich O" 
120 ifnot 

130 print "a ungleich O" 
140 ifend 


Die Befehle zwischen if und ifnot werden genau dann 
ausgeführt, wenn die Bedingung erfüllt ist, sonst die 
zwischen ifnot und ifend. Das ifnot kann auch fehlen, dann 
wird der Programmteil übersprungen, wenn die Bedingung nicht 
erfullt ist. In jedem Fall laufen die beiden Programmzweige 


hinter dem ifend wieder zusammen. 


4. Die Mehrfachverzweigung 


Diese wird in STRUKTO 64 durch den case-befehl verwirklicht. 
Nach dem "case" folgt ein beliebiger Ausdruck, danach eine 
Aufzahlung von Programmzweigen, die dann durchlaufen werden, 
wenn einer der am Beginn des Zweiges angegebenen Ausdrücke 
mit dem bei case übereinstimmt. Alle Programmzweige laufen 
dann beim "caseend" wieder zusammen 


Beispiel: 


150 input "Zahl zwischen O und 10 eingeben:";a 
160 case a 


170 of 0,2,4,6,8,10 


180 print "a ist gerade" 
190 Of 1,5,9,7,9 

200 print "a ist ungerade" 
210 ofrest 

220 print "falsche Eingabe" 
250 caseend 


9. Die Schleife 


In STRUKTO 64 gibt es drei verschiedene Schleifentypen: 
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a) Laufbedingung am Anfang der Schleife: 


Diese Schleife kann auch nullmal durchlaufen werden und 


sieht so aus: 


100 while Laufbedingung 


110 : 
120 : 
150 3 


140 whileend 


Die Befehle zwischen while und whileend werden solange 


ausgeführt, wie die Laufbedingung erfüllt ist. 


b) Abbruchbedingung am Schluß der Schleife 


Diese Schleife wird mindestens einmal durchlaufen und sieht 


zum Beispiel so aus: 


100 repeat 
110 input "O oder 1 eingeben:";x 


120 until x-O or x=1 


c) Abbruchbedingungen an beliebigen Stellen innerhalb der 


Schleife 


Bei dieser Schleife wird der Anfang durch "loop" und das 
Ende durch "loopend" gekennzeichnet. In der Schleife konnen 
beliebig viele Abbruchbedingungen untergebracht werden, die 
mit "on Bedingung leave" gekennzeichnet sind. Eine solche 


Schleife sieht dann so aus: 


400 loop 
410 rr 
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420 P 
450 on Bedingungi leave 


440 SK 
450 sg 
460 on Bedingung2 leave 


470 loopend 


d) Schleife mit Zählvariable 


Eine solche Schleife wird in STRUKTO 64 durch for und forend 
gekennzeichnet und entspricht in Aufbau und Funktion der 


FOR/NEXT-Schleife in BASIC. 


Dies sind also die Kontrollstrukturen von STRUKTO 64. Aber 
STRUKTD 64 bietet gleichzeitig eine umfangreiche 
Befehlserweiterung und vereinfacht die Erarbeitung 


umfangreicher Programme. Es sollen nun einige Besonderheiten 


von STRUKTO 64 dargestellt werden. 


DAS TOOLKIT 


Folgende Befehle erleichtern das Eingeben, Verbessern, 


Testen, Laden und Speichern von Programmen: 


auto gibt beim Eingeben von Programmen die Zeilennummern 
ren nummeriert die Zeilen neu durch. 


indent rückt die Kontrollstrukturen ein. 


trace zeigt die Nummer der aktuellen Zeile an. 


& hebt den trace- bzw. auto-Modus auf. 

fınd sucht nach besimmten Stellen im Programmtext. 

cont setzt das durch (stop) abgebrochene Programm fort. 
new löscht das gesamte Programm. 

del löscht bestimmte Programmteile. 

old holt, falls möglich, ein gelöschtes Frogramm zurück. 
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edit gıbt eine Frogrammzeile zum Verbessern aus. 


Außerdem können die Funktionstasten jeweils vierfach mit 
einer beliebigen Tastenfolge (bis zu 10 Tasten) belegt 
werden, so daß das Drücken einer Funktionstaste das Drücken 


von mehreren anderen Tasten ersetzt. 


Dies sind die zusätzlichen Befehle, die den Umgang mit der 


Floppy oder dem Drucker erleichtern: 


append hängt ein Programm an das geladene an. 

dir zeigt das Inhaltsverzeichnis der Diskette an. 

f liest den Fehlerkanal der Floppy. 

disk gibt einen Befehl an die Floppy. 

mon gibt die Ein- und Ausgaben von außen auf den 


Bildschirm 


Hierbei braucht an Befehle wie load, save, verify oder 
append nicht jedes mal die Geräte-Nummer angehängt werden. 
Es genügt, diese einmal anzugeben, und sie bleibt solange 
gespeichert, bis eine neue angegeben wird. Die 
augenblicklich gespeicherte Geräte-Nummer ist jederzeit in 


der Variablen dn% verfügbar. 


Der disk-Befehl gibt einen Befehl an die Floppy weiter und 
ersetzt dadurch die BASIC-Befehle 

OPEN 15,8,15,"...":CLOSE 15 durch disk "...". 

Dabei kann der Rechner bereits weiterarbeiten, während die 


Floppy den Befehl ausführt. 


Eine weitere Besonderheit von STRUKTO 64 ist das problemlose 
Aneinanderfügen von Programmen. Nehmen wir einmal folgenden, 
nicht selten auftretenden Fall an: Sie haben mehrere gute 
Programme geschrieben, die Sie nun gerne zu einem Programm 
zusammensetzten wollen, in dem die ursprünglichen Programme 
als Unterprogramme aufgerufen werden. Dabei können Sie mit 
STRUKTO 64 folgendermaßen vorgehen: 


Sie kennzeichnen den Anfang der jeweiligen Programme mit 
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entry name und das Ende mit exit. Dann löschen Sie den 
Programmspeicher und schreiben das Hauptprogramm, daß die 
anderen als Unterprogramme aufruft. Anschließend hängen Sie 
die Unterprogramme mit append an - fertig. Dies können Sie 
zwar auch mit einem geeigneten Programm in BASIC machen, 
aber nehmen wir einmal an, in einigen dieser Unterprogramme 
werden datas verwendet. Da diese datas in BASIC stets vom 
Programmanfang zum Ende gelesen werden, kann es dabei zu 
Mißverständnissen kommen. In STRUKTO 64 wird dieses Problem 
dadurch gelöst, daß jedes Unterprogramm einen eigenen 
data-Satz besitzen kann, der nur von diesem Unterprogramm 
gelesen wer den kann, und den data-read-Vorgang im 


übergeordneten Hauptprogramm nicht beeinflußt. 


Wenn nun die einzelnen Programme zu lang sind, um 
gleichzeitig ım Hauptspeicher Platz zu finden, so kann durch 
einen load-Befehl im Programm ein anderes Programm direkt 
geladen und sofort gestartet werden. Bei umfangreichen 
Programmen kann zum Beispiel das Hauptmenue ein kleines 
Frogramm sein, daß andere Programme nachlädt und startet, 
die dann nach ihrem Durchlauf wieder das Menue-Progr amm 


laden und starten. 
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3.5 DAS STRUKTO 64-GRAPHIKKONZEPT 


Die Mehrheitsentschei dung 


Wenn Sie mit dem Commodore 64 farbige Graphiken entwerfen 
wollen, so werden Sie auf das Problem stoßen, daß in einem 
Feld aus 8 mal 8 Punkten in der hochauflösenden Graphik 
(dieses entspricht einem Zeichen auf dem normalen 
Bildschirm) immer nur höchstens zwei Farben gleichzeitig 
dargestellt werden können. Es ist also z. B. nicht möglich, 
in einem solchen Feld gleichzeitig eine rote und eine blaue 
Linie e die sich schneiden, auf schwarzem Grund 
darzustellen. Auf Grund dieser Einschränkung ist es in den 
meisten für den Commodore 64 gebräuchlichen 
Graphikerweiterungen üblich, daß zum Zeichnen eines Punktes 
zwei Farben und zusätzlich eine Information darüber, ob der 
Punkt "gesetzt" oder "gelöscht" werden soll, angegeben 


werden muß. 


Dies bringt in vielen Fällen, vor allem, wenn die Lage 
bestimmter Linien zueinander vor dem Programmablauf 
unbekannt ist, einen großen Programmieraufwand mit sıch. Das 
STRUKTO 64-Konzept 1 aft sich nun auf folgende Weise 
kurzfassen: 

Sie programmieren so, als könne der Commodore 64 Farben in 
beliebigen Kombinationen darstellen, und der Interpreter 
macht dann das bestmögliche daraus. Und das funktioniert so: 
Nehmen wir an, in einem Feld aus 8 mal 8 Punkten sind 
bereits zwei Farben dargestellt (eine blaue Linie von links 
nach rechts auf schwarzem Grund). Nun sollen in diesem Feld 
noch einige Punkte in einer dritten Farbe gezeichnet werden 
(eine rote Linie von oben nach unten). Theoretisch müßten in 
diesem Feld jetzt drei Farben dargestellt werden (schwarz, 
rot, blau), was aber praktisch nicht möglich ist. Da die 
soeben gezeichneten Punkte in jedem Fall die gewählte Farbe 
(rot) haben sollen, beiben zwei mögliche Entscheidungen: 


Entweder wırd die eine schon vorhandenen Farbe (schwarz) 
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oder die andere (blau) durch die dritte (rot) ausgetauscht. 
STRUKTO 64 entscheidet sich nun je nachdem, in welchem Fall 
weniger Information zerstört wird, d. h. es wird in jedem 
Fall so wenig Farbe verändert, wie nötig (die blaue Linie 


wird im Bereich dieses Feldes rot). 


In der Praxis ist dadurch das erstellen farbiger Graphiken 
sehr einfach, da die Besonderheiten des Commodore 64 nicht 
beachtet wer den brauchen, denn die geringfügigen 
Farbveränderungen machen sich kaum bemerkbar. Wer mehr Wert 
auf korrekte Farbe legt, kann dann noch die 
Multicolor-Graphik verwenden, bei der die Auflösung zwar nur 
halb so groß ist, dafür aber in einem oben beschriebenen 
Feld 4 Farben dargestellt werden können. Auch hier fallt der 
Interpreter wieder eine Mehrheitsentscheidung, wenn der 


Programmierer versucht, mehr als 4 Farben darzustellen. 


Das Fenster 


In der Graphik lassen sich beliebige Rechtecke aus 
8 mal 8-Punkte-Feldern als Fenster definieren. Diese Fenster 
können dann mit einer einzigen Farbe ausgefüllt oder in 
beliebige Richtungen "gescrollt" werden, d.h. der Inhalt des 
Feldes wird nach oben, unten, rechts oder links verschoben. 
Dabei ist es auch möglich, die am einen Ende des Fensters 
veschluckten Zeilen bzw. Spalten am anderen Ende wieder zum 
Vorschein zu bringen. Auch ein Austauschen von Farben in dem 
Fenster ist möglich. 

Dies ist besonders nützlich zur Darstellung bewegter 
Graphiken oder zur Hervorhebung von Daten durch blinkenden 


Hintergrund. 


Text in der Graphik 


Mit STRUKTO 64 ist es möglich, innerhalb des Fensters Text 


darzustellen, indem die Graphik als Gerät Nr. 17 


angesprochen wird (wie Drucker = 4). Beim Versuch, aus dem 
Fenster hinaus zu drucken, wird automatisch ein 
entspechender Scroll ausgeführt, so daß man die Graphik 
letztlich genauso benutzen kann, wie den Text-Bildschirm. 
Dabei besteht der Vorteil, daß in der Graphik gleichzeitig 
beide Zeichensatze dargestellt werden  kónnen, auf dem 
Textbildschirm jedoch immer nur einer. Außerdem können in 
der Graphik doppelt-breite oder doppelt-hohe Zeichen 
dargestellt werden. 

Zeichensätze können in Strukto 64 auch von Diskette geladen 
oder dorthin abgespeichert werden. Auch das Herstellen 


eigener Zeichensätze ist möglich. 


Sprites 


Die Sprites können mit STRUKTO 64 direkt vom Bildschirm 
eingelesen werden. D. h. Sie "zeichnen" die Formen auf dem 
Bildschirm, sei es im direkt-Modus oder mit print-Anweisung, 
und geben dann den shget-Befehl zum Einlesen einer 
Formtabelle. Sie können gleichzeitig 16 solcher Tabellen 
speichern, ohne selbst den Speicherplatz dafur zu 
organisieren. Mit dem Befehl spdef a,b,f,... teilen Sie dem 
Computer nun mit, dali das Sprite Nummer a die unter Nummer b 
eingelesene Form und die Farbe f bekommen soll, aufierdem 
kann es in x- oder  y-Richtung gestreckt werden. Danach 
können Sie das Sprite durch den spput-Befehl auf dem 
Bildschirm bewegen oder mit spon/spoff ein und ausschalten. 


Auch ein Abspeichern der Formtabellen ist möglich. 


MUSIK 
STRUKTO 64 bietet die Möglichkeit, bis zu dreistimmige 


Melodien mit bis zu 500 Noten pro Stimme einzulesen und 


diese dann, wahrend das Programm weiterlauft oder der 
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Benutzer im Direkt-Modus arbeitet, abzuspielen. Die Noten 
werden dabei direkt als solche eingegeben, also zum Beispiel 
"c64" fur ein c der Lange 64 = 1 Sekunde = ganze Note. Die 
Noten werden dabei getrennt abgespeichert und belegen keinen 


Programmspeicherplatz. 


BE ISPIELPROGRAMM 


Um den logisch strukturierten Programmaufbau von STRUKTO 64 
möglichst deutlich zu machen, haben wir als Beispiel für ein 
kleines STRUKTO-Frogramm ein solches aus dem Bereich der 
numerischen Mathematik gewählt: Berechnung von Primzahlen 


nach dem Sieb-Ver fahren. 


Dabei werden eine vorgegebene Anzahl von Zahlen zunächst als 
Primzahlen gekennzeichnet. Dann wird die kleinste Zahl als 
Primzahl ausgegeben und alle Vielfachen dieser Zahl werden 
"aussortiert". Die kleinste noch nicht aussortierte Zahl ist 
dann wieder eine Frimzahl, die wieder ausgegeben wird u.s.w. 
Um alle Frimzahlen bis 1000 zu berechnen, benötigt dieses 
Programm etwa 28 Sekunden, ist also wesentlich schneller als 


ein Programm mit dem einfachen Divisions-Test-Verfahren. 
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rem programm zur primzahl- 
rem berechnung nach dem 
rem sieb-verfahren: 
rem die vielfachen einer 
rem gefundenen primzahl 
rem werden aussortiert. 
rem 
rem 
repeat 

clr 


print""; 


centre "Primzahlen" 


print 


repeat 


until b-int(b) and b<=15000 and b 


input "von 2 bis ";b 


M 
ħ9 


dim aZ(b/2) 


" ^7) n 


print 225 


KA 


for f=3 to b step 2 


rem 
rem zählen von 3 bis b 
rem gerade zahlen weglassen 
rem 
if a%(f/2)=0O 
rem 
rem f ist eine primzahl 
rem formatierte ausgabe 
rem 


printf; 


rem 
rem ungerade vielfache 
rem aussortieren 
rem 
while ich 
aZ(1/2)=1 
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i-i-*2*f 
whileend 
ifend 
forend 
print 
print "nochmal? €(j/n)"; 
repeat 
get a$ 


until a$-"j" or a$="n" 
until a$-"'n" 


end 
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DATA BECKER BÜCHER 


VC-20 


Tips & Tricks 


Eine Fundgrube für den 
VC-20 Anwender 


EIN DATA BECKER BUCH 


Angerhausen Brückmann 
Englisch 


VC-20 


intern 


Betriebssystem und Technik 
des VC-20 


EIN DATA BECKER BUCH 


Die überarbeitete und erweiterte 2. Auflage 


“ von VC-20 TIPS & TRICKS enthält eine detail- 


lierte Beschreibung der Programmierung von 
Sound und Graphik des VC-20, mehr über 
Speicherbelegung, Speichererweiterung und 
die optimale Nutzung der einzelnen Speicher- 
module, BASIC-Erweiterungen zum Eintippen, 
umfangreiche Sammlung von Poke's und 
anderen nützlichen Routinen, zahlreiche inter- 
essante Beispiel- und Anwendungspro- 
gramme, komplett dokumentiert und fertig 
zum Eintippen (z.B. Spiele, Funktionenplotter, 
Graphik Editor, Sound Editor) und vieles 
andere mehr. VC-20 TIPS & TRICKS ist eine 
echte Fundgrube für jeden VC-20 Anwender. 
VC-20 TIPS & TRICKS, 2. Auflage 1983, ca. 230 
Seiten, DM 49,-. 


Die überarbeitete und erweiterte 2. Auflage 
von VC-20 INTERN beschäftigt sich detailliert 
mit Technik und Betriebssystem des VC-20 
und enthält ein ausführlich dokumentiertes 
ROM-Listing, die Belegung der ZEROPAGE 
und anderer wichtiger Bereiche, übersichtliche 
Zusammenfassungen der Routinen des BASIC- 
Interpreters und des VC-20 Betriebssystems, 
eine Einführung in die Programmierung in 
Maschinensprache, eine detaillierte Beschrei- 
bung der Technik des VC-20 und als Clou drei 
Original COMMODORE Schaltpläne zum Aus- 
klappen! Damit ist VC-20 INTERN fürjeden 
interessant, der sich näher mit Technik und 
Maschinenprogrammierung des VC-20 aus- 
einandersetzen möchte. VC-20 INTERN, 

2. Auflage 1983, ca. 230 Seiten, DM 49, -. 


Angerhausen Becker 
Gerits Schellenberger 


für Fortgeschrittene 


EIN DATA BECKER BUCH 


Angerhausen Englisch 
Gerits 
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Tips & Tricks 


Eine Fundgrube für den 
COMMODORE 64 Anwender 


EIN DATA BECKER BUCH 


Angerhausen Brückmann 
Englisch Gerits 
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intem 


Das große Buch zum 
COMMODORE 64 


mit 
dokumentiertem Schaltplan 


EIN DATA BECKER BUCH 


DATA BECKER BÜCHEI 


Wer besser und leichter in BASIC programmie- 
ren möchte, der braucht dieses neue Buch. 

64 FUR PROFIS zeigt, wie man erfolgreich 
Anwendungsprobleme in BASIC löst und verrät 
Erfolgsgeheimnisse der Programmierprofis. 
Vom Programmentwurf über Menüsteuerung, 
Maskenaufbau, Parameterisierung, Daten- 
zugriff und Druckausgabe bis hin zur Dokumen- 
tation wird anschaulich mit Beispielen darge- 
legt, wie gute BASIC-Programmierung vor sich 
geht. Fünf komplett beschriebene, lauffertige 
Anwendungsprogramme für den C-64 illustrie- 
ren den Inhalt der einzelnen Kapitel beispiel- 
haft. Mit 64 FUR PROFIS lernen Sie gute und 
erfolgreiche BASIC-Programmierung. 

64 FUR PROFIS, 1983, ca. 220 Seiten, DM 49,-. 


Die überarbeitete und erweiterte 2. Auflage 
von 64 TIPS & TRICKS enthalt eine umfang- 
reiche Sammlung von POKE's und anderen 
nützlichen Routinen, Multitasking mit dem 
C-64, hochauflösende Graphik und Farbe für 
Fortgeschrittene, mehr über CP/M auf dem 
C-64, mehr über Anschluß- und Erweiterungs- 
moglichkeiten durch USER PORT und EXPAN- 
SION PORT, sowie zahlreiche ausführlich 
dokumentierte Programme von der SORT- 
Routine über zahlreiche BASIC-Erweiterungen 
bis hin zur 3D-Graphik (alle Maschinen- 
programme jetzt mit BASIC-Ladeprogramm!). 
64 TIPS UND TRICKS ist eine echte Fundgrube 
für jeden COMMODORE 64 Anwender. 

64 TIPS & TRICKS, 2. Auflage 1983, 

ca. 290 Seiten, DM 49,-. 


Jetzt in überarbeiteter und erweiterter 3. Auf- 
lage: 64 INTERN erklärt detailliert Architektur 
und technische Möglichkeiten des C-64, zer- 
legt mit einem ausführlich dokumentierten 
ROM-Listing Betriebssystem und BASIC-Inter- 
preter, bringt mehr über Funktion und Pro- 
grammierung des neuen Synthesizer Sound 
Chip und der hochauflösenden Graphik, zeigt 
die Unterschiede zwischen VC-20, C-64 und 
CBM 8000 und gibt Hinweise zur Umsetzung 
von Programmen. Zahlreiche lauffertige 
Beispielprogramme, Schaltbilder und als Clou: 
zwei ausführlich dokumentierte Original 
COMMODORE Schaltpläne zum Ausklappen. 
Dieses Buch sollte jeder 64-Anwender und 
Interessent haben. 64 INTERN, 3. Auflage 
1983, ca. 320 Seiten, DM 69,-. 
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Das sollte Ihr erstes Buch zum 
COMMODORE 64 sein: 64 FUR EINSTEIGER 
isteine sehr leicht verständliche Einführung 
in Handhabung, Einsatz, Ausbaumoglich- 
keiten und Programmierung des 
COMMODORE 64, die keinerlei Vorkennt- 
nisse voraussetzt. Schritt für Schritt führt 
das Buch Sie in die Programmiersprache 
BASIC ein, wobei Sie nach und nach eine 
komplette Adressenverwaltung erstellen, 
die Sie anschließend nutzen können. 
Zahlreiche Abbildungen und viele Anregun- 
gen zum sinnvollen Einsatz des COMMO- 
DORE 64. 

Das Buch ist sowohl als Einführung als auch 
als Orientierung vor dem 64er Kauf gut 
geeignet. Ca. 200 Seiten, DM 29, -. 


Graphik ist eine der Hauptstärken des 
COMMODORE 64. Mit diesem neuen Buch 
lernen Sie, wie Sie die graphischen Fähig- 
keiten programmtechnisch optimalnutzen. 
Der Inhalt reicht von den Grundlagen der 
Graphikprogrammierung über dasErzeugen 
einfacher Figuren, die Arbeit mit Sprites, 
Zeichensatzprogrammierung, Hardcopy 
und IRQ-Handhabung bis hin zur Funktio- 
nendarstellung, Laufschrift, Statistik, 3-D, 
CAD, den Geheimnissen der Actionsspiele 
und Lightpenanwendungen. Zahlreiche 
Beispielprogramme ergänzen dieses Buch, 
das die faszinierende Computertechnik 
jedermann zugänglich macht. 

Ca. 250 Seiten, DM 39,-. 


Diese neue, umfangreiche Programm- 
sammlung hates in sich. Uber 50 Spitzen- 
programme für den COMMODORE 64 aus 
den unterschiedlichsten Bereichen, vom 
Superspiel (, Senso", ,Pengo") uber Gra- 
phik- und Soundprogramme (zum Beispiel 
„Fourier 64" oder , Orgel") sowie Utilities 
(„Sort“) bis hin zu Anwendungsprogram- 
men wie , Videothek" oder ,Finanzbuchhal- 
tung“. Der Hit sind zu jedem Programm 
aktuelle Programmiertips und Tricks der 
einzelnen Autoren zum Selbermachen. Also 
- nicht nur abtippen, sondern auch dabei 
lernen und wichtige Anregungen für die 
eigene Programmierung sammeln. 

Ca. 250 Seiten, DM 49,-. 
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Eine leicht verständliche Einführung in die Pro- 
grammierung des COMMODORE 64 in 
Maschinensprache und Assembler für alle die- 
jenigen, denen die Programmierung in BASIC 
nicht mehr ausreicht. Beispiele erläutern jeden 
neuen Befehl. Zur komfortablen Eingabe und 
zum Austesten Ihrer Maschinenprogramme 
enthält das Buch einen kompletten Assembler, 
einen Disassembler und einen Einzel- 
schritt-Simulator, der besonders für den 
Anfänger sehr nützlich ist. Natürlich 
zugeschnitten auf Ihren Computer, 

den COMMODORE 64. DAS 
MASCHINENSPRACHEBUCH 

ZUM COMMODORE 64. 

1984, ca. 200 Seiten, 

DM 39. -. 


SIMON's BASIC ist ein Hit - wenn man es rich- 
tig nutzen kann. Deshalb gibt es jetzt zu dieser 
vielseitigen Befehlserweiterung unser umfang- 
reiches Trainingsbuch, das Ihnen detailliert 
den Umgang mit den über 100 Befehlen des 
SIMON's BASIC erklärt. Ausführliche Darstel- 
lung aller Befehle (auch der, die nicht im Hand- 
buch stehen!) Natürlich auch mit allen Macken 
und Hinweisen, wie man diese umgeht. Dazu 
zahlreiche Beispielprogramme und interes- 
sante Programmiertricks. Nach jedem Kapitel 
Testaufgaben zum optimalen Selbststudium. 
Dieses Buch sollte jeder SIMON's BASIC 
Anwender unbedingt haben! Das TRAININGS- 
BUCH ZUM SIMON's BASIC, 1984. 

ca. 300 Seiten, DM 49,-. 


Darauf haben Sie gewartet: Endlich ein Buch, 
das Ihnen ausführlich und verstandlich die 
Arbeit mit der Floppy VC-1541 erklart. DAS 
GROSSE FLOPPY BUCH ist für Anfänger, Fort- 
geschrittene und Profis gleichermaßen inter- 
essant. Sein Inhalt reicht von der Programm- 
speicherung bis zum DOS-Zugriff, von der 
sequentiellen Datenspeicherung bis zum Direkt- 
zugriff, von der technischen Beschreibung bis 
zum ausführlich dokumentierten DOS Listing, 
von den Systembefehlen bis zur detaillierten 
Beschreibung der Programme der Test/Demo- 
diskette. Exakt beschriebene Beispiel- und 
Hilfsprogramme ergänzen dieses neue Super- 
buch. Mit dem GROSSEN FLOPPY-BUCH 
meistern Sie auch Ihre Floppy. DAS GROSSE 
FLOPPY BUCH, 1983, ca. 320 Seiten, DM 49,-. 
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Der COMMODORE 64 ist ein Musikgenie, 
und mit diesem Buch lernen Sie alles über 
seine musikalischen Fähigkeiten. Der Inhalt 
reicht von einer Einführung in die Compu- 
termusik über die Erklärung der Hardware- 
Grundlagen und die Programmierung in 
BASIC bis hin zur fortgeschrittenen Musik- 
programmierung. Zahlreiche Beispiel- 
programme und leicht verständliche Dar- 
stellung. Geschrieben vom Autor der 
bekannten Musikprogramme SYNTHIMAT 
und SYNTHESOUND. 

ErschlieBen Sie sich die Welt des Sounds 
und der Computermusik mit dem MUSIK- 
BUCH ZUM COMMODORE 64. 

Ca. 200 Seiten, DM 39,-. 


So etwas haben Sie gesucht: 
Umfassendes Nachschlagewerk zum 
COMMODORE 64 und seiner Programmie- 
rung. Allgemeines Computerlexikon mit 
Fachwissen von A-Z und Fachworterbuch 
mit Ubersetzungen wichtiger englischer 
Fachbegriffe - das DATA BECKER LEXIKON 
ZUM COMMODORE 64 stellt praktisch 

drei Bücher in einem dar. Es enthält eine 
unglaubliche Vielfalt an Informationen 

und dient so zugleich als kompetentes 
Nachschlagewerk und als unentbehrliches 
Arbeitsmittel. Viele Abbildungen und Bei- 
spiele ergänzen den Text. Ein Muß für jeden 
COMMODORE 64 Anwender. 

Ca. 350 Seiten, DM 49,-. 


Achtung Hobbyelektroniker: Diese Buch 
enthalt nicht nur alles über Interfaces und 
Ausbaumoglichkeiten des COMMODORE 
64, sondern auch über seine vielfältigen 
Einsatzmöglichkeiten von der Lichtorgel 
über Motorsteuerung, Spannungs- und 
Temperaturmessung bis zur programmier- 
baren Stromversorgung, und wie man diese 
verwirklicht. Zehn komplette Schaltungen 
zum Selberbauen, vom Eprommer uber 
Eproin-Karte, Logic Analyzer, Freugenzzáh- 
ler, Hardware-Tracer, Pulsmeßgerät, 
Klatschschalter und Digital-Voltmeter bis 
zur preiswerten Spracheingabe-Sprachaus- 
gabe. Jeweils komplett mit Schaltplan, 
Layout und Softwarelisting. 

Ca. 220 Seiten, DM 49,-, ab April 84. 
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PASCAL 64 erlaubt endlich strukturierte 
Programmierung mit dem COMPODORE 64 ' 


Beispiel - 


PROG 


DISKOMAT 


Dieses neue Spitzenpaket hilft Ihnen. mehr aus Ihrer 
Floppy zu machen, mit SUPERTWIN. dem Steuer- 
programm. das zwei VC-1541 wie ein Doppellaufwerk 
verwaltet, mit DISK-BASIC. den Diskettenbefehlen des 
BASIC 4.0, mit denen Sie eine komplette Diskette oder 
Auszuge mit einem Befehl kopieren konnen und mit eine 
komfortablen DISK-MONITOR. mit dem Sie den Aufba 
der Diskette erforschen und manipulieren konnen. Alle 
zusammen fur nur DM 99.-. 


PROFIMAT 


Ein Spitzenpaket für Maschinenspracheprogrammierer 
PROFIMAT enthalt nicht nur unseren komfortablen 

Maschinensprache Monitor PROFI-MON. sondern auct 
PROFI-ASS. einen sehr leistungsfahigen Assembler fur 
den COMMODORE 64. PROFI-ASS bietet unter andere 
formatfreie Eingabe, komplette Assemblerlistings, ladba 
Symboitabellen (Labels), verschiedene Möglichkeiten z 
Speicherung des erzeugten Maschinencodes, redefinie 
bare Symbole, eine Reihe von Pseudo-Codes (Assemble 
anweisungen), bedingte Assemblierung und die Möglic 
keit zur Erzeugung von Assemblerschleifen. PROFIMA 
kostet komplett mit ausführlichem Handbuch nur DM 99 


PASCAL 64 


Jetzt konnen Sie die beliebte Sprache PASCAL auch a 
dem COMMODORE 64 einsetzen. PASCAL 64 ist ein 
leistungsfahiger PASCAL-Compiler, der nicht nur den 
Befehlssatz des Standard PASCAL unterstützt, sonderr 
auch die hochauflösende Graphik und die Sprites des 
Commodore 64. Ein-/Ausgabe uber Diskette und Druck 
sowie REAL und INTEGER Arithmetik. Unterprogramm 
aus Ihrer eigenen Programmbibliothek konnen vor den 
Compilieren in Ihr Hauptprogramm mit eingebunden 
werden. PASCAL 64 ist sehr schnell, da echter Maschine 
code erzeugt wird. PASCAL 64 kostet komplett mit aus 
fuhrlichem Handbuch nur DM 99.-. 
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DATAMAT 


Eine universelle Dateiverwaltung, die Sie von der Adress- 
verwaltung über Mitgliederverwaltung bis hin zur Lager- 
buchfuhrung auf vielfältigste Weise nutzen können. 
Die frei gestaltbare Eingabemaske kann bis zu 50 Felder. 
max. 40 Zeichen pro Feld und bis zu 253 Zeichen pro 
Datensatz enthalten. Bis zu 2000 Datensätze pro Diskette 
sind moglich. Nach allen Feldern kann selektiert und 
sortiert werden. sogar nach mehreren gleichzeitig. Aus- 
wertungen konnen als Listen gedruckt oder in eine Datei 
als Verbindung zu TEXTOMAT geschrieben werden. 
DATAMAT ist (naturlich) menuegesteuert,in deutsch und 
dadurch extrem bedienerfreundlich. Ein Superprogramm, 
das zu jedem 64er gehoren sollte. Komplett mit umfang- 
reichem deutschen Handuch nur DM 99.-. 


TEXTOMAT 


Ein außergewöhnliches Textverarbeitungsprogramm: 80 
Zeichen pro Zeile durch horizontales Scrolling, Ausdruck 
bis zu 255 Zeichen, Textlange bis zu 24000 Zeichen im 
Speicher, Verketten von Texten, umfangreiche Textbau- 
steinverarbeitung und Formatierungsmoglichkeit, 
Formularsteuerung. Anpassung an fast jeden Drucker, 
Diskettenverwaltung. umfangreicher Befehlssatz und ca. 
30 Steuerzeichen, Schnittstelle zu DATAMAT zur 
Erstellung von Rundschreiben mit individueller Anrede. 
TEXTOMAT ist komplett in Assembler geschrieben und 
dadurch extrem schnell. Menuesteuerung, deutsche 
Benutzerführung. naturlich deutscher Zeichensatz auf 
dem Schirm und ausfuhrliches. 75seitiges Handbuch 
machen gerade fur den Anfangerdie Arbeit mit TEXTOMAT 
zum Kinderspiel und das zum sagenhaften Preis von 
nur DM 99.-. 


SUPERGRAPHIK 64 


Die neueste Version unserer beliebten SUPERGRAPHIK 
enthait jetzt uber 30(!) Befehle zur Ausnutzung der fanta- 
stischen Möglichkeiten, die der 64 mit hochauflösender 
Graphik und Farbe bietet. Mit SUPERGRAPHIK 64 
konnen Sie Punkte. Linien und Kreise ziehen. SPRITES 
definieren und manipulieren, Farben setzen, komplette 
Graphikbildschirme auf Diskette abspeichern bzw. laden 
und vieles andere mehr. Ergänzt wurde die SUPERGRA- 
PHIK 64 zusatzlich um SUPERSOUND, eine neue Befehls- 
erweiterung zur Nutzung der hervorragenden Sound- 
moglichkeiten des 64 und der Farb-Hardcopy auf dem 
neuen SEIKO GP 700 A. Mit SUPERGRAFHIK 64 machen 
Sie mehr aus Ihrem 64er, und das für nur DM 99.-. 
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SYNTHIMAT 


Mit diesem Superprogramm verwandeln Sie Ihren 64ε 
einen professionellen, polyphonen, dreistimmigen 
Synthesizer, mit dem Sie über die Tastatur ganze Akkc 
spielen können. Zu den unglaublich vielen Möglichke 
dieses Programms gehört auch die Bandaufnahme’ 
-wiedergabe direkt auf bzw. von Diskette. SYNTHIMA 
stellt gleichzeitig den Synthesizer optisch dar. Samtli 
Module sind farblich gekennzeichnet und ubersichtlic 
angeordnet. Es ist ein Leichtes, mit SYNTHIMAT samtli 
Klangeigenschaften verschiedener Musikinstrumente 
imitieren, aber auch vollig neue Klangkreationen zu 
schaffen, selbst Weltraumklange. Verwandeln Sie Ihre 
64er für wenig Geld in eine Super-Musikmaschine mi 
SYNTHIMAT. Komplett mit ausfuhrlichem Handbuch 
nur DM 99.-. 


FAKTUMAT 


Eine Sofortfakturierung mit integrierter Lagerbuch- 
fuhrung. Ideal fur jeden Kleinbetrieb durch individuel 
Anpassung von Steuersatzen, Maßeinheiten und Firm 
daten an eigene Bedurfnisse. Naturlich sind auch die 
Kunden- und die Artikelstammdatei voli pflegbar. So 
konnen Sie beliebig den Umfang der Dateien wahlen i 
diese Ihren Erfordernissen anpassen. Durch eine bes: 
dere Programmierweise ist es möglich, sehr schnell a 
Kunden- und Artikeldaten zurückzugreifen. Der Zugri 
auf diese Daten erfolgt jeweils uber einen 6stelligen 
Schlussel. den Sie frei definieren konnen. Die Fort- 
schreibung von Artikel- und Kundendaten erfolgt selt 
verstandlich automatisch. Komplett mit ausführlicher 
Handbuch nur DM 99.-. 


KONTOMAT 


Ein Einnahme-Uberschuf programm nach 84 (3) EStG 
Kassenbuch, Bankkontenuberwachung, automatische 
Steuerbuchung (Brutto und Netto). AfA Tabellen- 
erstellung, Kontenblattern, Ermittlung der Ust.-Vorann 
dungswerte und Monats- und Jahresabrechnung, 
geschrieben von einem Buchhalier und einem 
Programmierer. KONTOMAT ist voll parameterisiert 
(Firmendaten, Steuersätze, Kontennamen ...) und lal 
sich damit an Ihre Bedurfnisse anpassen. KONTOMA] 
geeignet für alle Gewerbetreibenden, die nicht laut H 
zur Buchführung verpflichtet sind. Mehrere Finanzam 
haben die mit KONTOMAT ermittelten Daten bereits 
erkannt. KONTOMAT ist menügesteuert und dokume 
tiert sich weitgehend selbst. KONTOMAT ist für den 
gewerblichen Einsatz aber auch als Lernprogramm o 
zur Haushaltsbuchfuhrung geeignet. Komplett mit au: 
fuhrlichem Handbuch nur DM 99.-. 


